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.REM_ 
IDENTIFICATION 
PRODUCT ID: AC-TO93A-MC 
PRODUCT TITLE: CVTSAAO TSVOS CTRL LT1 
AUTHOR: DICK GORDON 
MAINTAINER: SCOTT SNOWDON 
DATE: MARCH 08, 1982 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
SHOULD NOT BE CONS D 


NOTICE AND L 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS Ra FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 


COPYRIGHT (C) 1962,1982 BY DIGITAL EQUIPMENT CORPORATION 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MASSBUS 
DEC DECUS DECTAPE 
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SEQ 0003 


Bd 


1.0 GENERAL INFORMATION wg 
1.1 PROGRAM ABSTRACT 


_ IS A «gp lk 5, RESIDENT DIAGNOSTIC WHICH og THE FUNCTIONALITY 

A_ TSV05 GTAPE SUBSYSTEM WHILE CONNECTED TO A PDP-11//235 SYSTEM 
70-BUS). THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING 
FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE. THIS DIAGNOSTIC CONSIST OF 
ELEVEN TEST WHICH ARE EXECUTED IN SEQUENCE. 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 

RUNTIME SERVICES hg a (SUPERVISOR). THESE SERVICES PROVIDE 

es INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENV = ye! : 
THIS — Fee BE USED WITH XXDP+, ACT, art SLIDE AND PAPER 

TAPE. FOR A COMPLETE es gaat Loo OF THE’ RUNTIME Senvices, REFER 

TO THE XXDP+ USER’ S MANUAL. THERE IS A yt} co OF 

THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT 


1.2 SYSTEM REQUIREMENTS 


PDP-11/23 PROCESSOR AND MEMOR 

ioe use DIAGNOSTIC areules 32K WORDS OF MEMORY 

Ca ABLE I.E. 4K FOR 
SvO5 NAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER) 

"CONgOLe TERMINAL 

PDP-11 DIAGNOSTIC SUPERVISOR (HSAAA. Svs , ension 34 OR LATER) 

PDP=11 DIAGNOSTIC LOADER/MONITOR (xxOP 


1.3. RELATED DOCUMENTS AND STANDARDS 


DIGITAL EQUIPMENT CORPORATION DOCUMENTS: 


1. CHQUS XXDP+ USERS GUIDE; DOCUMENT NUMBER AC~F348E-MC 
DATE: 14 JULY 1980. j 


2. TSVOS TRANSPORT SUBSYSTEM USER'S GUIDE; DOCUMENT NUMBER EK-TSV05-UG-001 
DATE: AUGUST 1982 


3. TSVO5 TRANSPORT SUBSYSTEM TECHNICAL MANUAL; DOCUMENT NUMBER EK-TSVO5-TM-001 
DATE: AUGUST 1982 , 


4. TSVOS TRANSPORT SUESYSTEN 1 INSTALLATION MANUAL; DOCUMENT NUMBER EK~-TSVO5-IN-001 
DATE: AUGUST 1982 


1.4 DIAGNOSTIC HIERARCY PREREQUISITES 


FUNCTIONAL PDP=11/23 CENTRAL PROCESSOR AND MEMORY 
FUNCTIONAL CONSOLE TERMINAL 

FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 
FUNCTIONAL DIAGNOSTIC LOADER/WONITOR (XXDP+) 


a 


-_-. 


| USER DOCUMENTATION 


Davin abate: Aad od meee nrc ee Toe: 


MACRO M1113 25-MAY-82 08:41 PAGE 4-1 


1.5 ASSUMPTIONS 
ALL HARDWARE EXCEPT THE HARDWARE a te TEST IS ASSUMED TO WORK 


PROPERLY OR FALSE ERRORS CAN BE REPO 
i ee BEING USED ON THE TSO5 TRANSPORT IS A KNOWN GOOD REEL 


2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS 
THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME ion 


(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 
COMMAND EFFECT 
START START THE DIAGNOSTIC FROM AN INITIAL STATE 
RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 
CONT INUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER “C) 
PROCEED CONTINUE FROM AN ERROR HALT 
EXIT RETURN TO XXDP+ pags i (XXDP+ OPERATION ONLY!) 
ADD ACTIVATE A UNIT FOR TESTING (ALL op ARE 
CONSIDERED y BE ACTIVE AT START TIME 
DROP DEACTIVATE A_UWIT 
PRINT PRINT STATISTICAL ay re zl | (IF IMPLEMENTED 
BY THE DIAGNOSTIC = SECTI 
DISPLAY TYPE A LIST OF ALL DEVICE INF 
FLAGS TYPE THE STATE OF ALL FLAGS (SEE. SECTION 2.3) 
ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE ene so 
YOU MAY, FOR EXAMPLE, TYPE ‘’STA’’ INSTEAD OF ‘‘START’ 


2.1.1 OPERATOR COMMANDS 


a ag grey 8 IS A PDP=11/23 DIAGNOSTIC SUPERVISOR had ho 


ING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN 


SEQ 0004 


AL THE 
CHQUS XXDP+ USERS GUIDE.DOCUMENT NUMBER AC-F348E-MC. THE USER ENTRY IS IN QUOTES. 
6 


BOOT THE DIAGNOSTIC HEDIA 


-R VTSA?? 
tes F RUN-TIME SERVICES REV D. APR 79 
CVTSA-A-0 


oar iat LOGIC DIAGNOSTIC#**« 
i sv05 
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2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SUITCHES. ARE. TABULATED BELOW WITH A BRIEF DESCRIPTION OF EAC ~ aes 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDD"*. 


‘SWITCH EFFECT 
“ VTESTS: LIST eg ONLY THOSE TESTS SPECIFIED IN 
; THE LIST. LIST IS A STRING . TEs? 


BE RUN. L E LL NOT BE 
/PASS:DDDDD EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000) 
/FLAGS:FLGS tn orction” ED_FLAGS. FLAGS ARE DESCRIBED 


TION 
/EOP: DDDDD REPORT END OF PASS ieaeas “ox” EVERY 
DDDDD PASSES ONLY. (DD = 1 TO 64000) 
/UNITS:LIST he etaa ont THOSE. UNITS SPECIFIED 


EXAMPLE OF SWITCH USAGE: 


-  START/TESTS:1-5/PASS:1000/EOP: 100 


S_ONLY. 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE end a vou MAY, 
FOR EXAMPLE, TYPE ‘'/TES:1=5°' INSTEAD OF *'/TESTS:1-5"". 


BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND. 


TESTS PASS FLAGS OP UNITS 


2.3 FLAGS 


FLAGS ARE USED TO SET UP cee aae OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 


SEQ 0005 


——— 


U 
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ARE ALSO CLEARED AFTER A START COMMAND UNLESS oe USING THE 
FLAG SWITCH. THE ZFLAGS COMMAND MAY AL C 
er cote a recr HE eit ION . THE START AND ZELAGS C 


FLAG EFFECT 

HOE ,> HALT ON ERROR = CONTROL + RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IER* INHIBIT ALL ERROR REPORTS 

IBR* INHIBIT ALL ERROR REPORTS EXCEPT 
FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 

IXE* INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACRO'S) 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE *“BELL’* ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 

ISR _ INHIBIT STATISTICAL REPORTS (DOES NOT 
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
erat kos REPORT ING) 

IDR INHIBIT PROGRAM DROPPING OF UNITS 

ADR iy AUTODROP CODE 

LOT LOOP ON TEST 


*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 


TW.CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 


AND\IYPE A "SELL" ON ERROR, YOU MAY USE THE FOLLOWING STRING: 
/FLAGS:LOE : IER: BOE 


2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMP.T 
THE USER FOR HARDWARE INFORMATION BY TYPING CHANGE HW (L) ? 

YOU MUST ANSWER ‘'Y’* AFTER A START C UNLESS THE HARDWARE 
INFORMATION HAS BEEN ‘PRELOADED*’ ae THE SETUP UTILITY 1 
CHAPTER 14 OF THE XXDP+ USER'S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A "'Y'', THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS (IN DECIMAL). 


AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SUPERVISOR), THE PROGRAM WILL ISSUE THE ‘CHANGE HW?*’ QUESTION TO ASK IF 
THE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 


A *'N’* (NO) RESPONSE TO THE “‘CHANGE HW?°’ QUESTION, THE DIAGNOSTIC WILL 


ON A 
RUN USING THE DEFAULT VALUES FOR ALL QUESTIONS. THE DEFAULT ADDRESS AND VECTOR ARE: 


SEQ 0006 





—— 
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a SEQ 0007 





| TSBA/TSDB = 172520, VECTOR = 224 


ON_A ‘'Y’’ (YES) RESPONSE TO THE QUESTION, THE FOLLOWING QUESTIONS —. 
THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED. 
V PR OF THE QUES MAR Ss THE 
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RESPONSE. E A DECIMAL 1S 
REQUIRED AS A RESPONSE. AN ‘°(O)"' INDICATES AN OCTAL NUMBER IS BEING 
PEE “AML CICLO" INDICATES THAT A LOGICAL RESPONSE IS TO GE MADE: 


# UNITS (D) ? <ENTER THE NUMBER OF M7196 CONTROLLERS 
rogiens ¥ Ge Teese 


UNIT 0 


DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 
TSBA/TSDB REGISTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT | 
.  MECTOR> 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE ‘# UNITS?°* QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED ae BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING AS FOLLOWS: , | 
UP TO 4 TSVO5 CONTROLLERS PER 11/23 AND UP TO 2 DRIVES PER CONTROLLER ; 


2.5 SOFTWARE QUESTIONS 


AFTER YOU HAVE gg 7 THE HARDWARE QUESTIONS OR AFTER I RESTART 

OR CONTINUE COMMAND, THE F TWARE 

PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 
I WILL BE PROMPTED yy I Sw (L) ?° 


IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING 
“"Y’*, THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 
IN THE NEXT PARAGRAPH(S). 


THE FOLLOWING QUESTIONS ARE ASKED ON A_ START, RESTART, OR CONTINUE. 
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 


CHANGE SW (L) ? <TYPE Y TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED> 


INHIBIT ITERATIONS (L) N ? <TYPE “Y’* TO PREVENT MULTIPLE 
ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
ONLY QUICK=RUNNING LOGIC 
TESTS USE MULTIPLE 
ITERATIONS.> 
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2.6 EXTENDED P-TABLE DIALOGUE 
WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES 
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IN A_TABLE THAT enieee 3 DEVICES UNDER TEST. THE SIMPLEST 
H ABLE IS TO ANSWER ALL QUESTIONS FOR EACH 
yt TO sien TESTED... IF YOU Have A MULTIPLEXED DEVICE SUCH AS 
MASS STORAGE CONTROLLER a SEVERAL DRIVES OR A COMMUNICATION 
DEVICE oie SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 


TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING 

A DEVICE, moat XY11. SUPPOSE THIS DEVICE CONSIST 

A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT. 
THESE UNITS ARE DESCRIBED Tae ne _ TAL NUMBERS 0 THROUGH 7. THERE 
IS ONE HARDWARE PARAMETER AN VARY AMONG UNITS CALLED THE 
Q-FACTOR. THIS Q-FACTOR MA Y BE 4 OR 1. BELOW IS A SIMPLE WAY 

TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS. 


# UNITS (D) 2? 8<CR> 


UNIT 1 
CSR ae (0) ? —e 
SUB=DEVICE # (0) ?. 0<C 
Q-FACTOR (0) 0 ? acces 


UNIT 2 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?_ 1<CR> 
Q-FACTOR (0) 1? O<CR> 


UNIT 3 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 2<CR> 
Q-FACTOR (0) 0? <CR> 


UNIT 4 
CSR ADDRESS (0) ? 160000<CR> 
SUB=-DEVICE # (0) ? 3<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 5 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 4<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 6 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 5<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 7 + 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 6<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 8 
CSR ADDRESS (0) 160000<CR> 
SUB-DEVICE # (0) ? 7<CR> 
Q-FACTOR (0) 1? <CR> 


SEQ 0008 


------- CF 
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NOTICE sy: THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 


AS wy CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 
DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 
NOT NVERY EFFICIENT. 


THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
OM es THE SAME TABLE USING THE MULTIPLE SPECIFICATION 


# UNITS (D) ? &8<CR> 


UNIT 1 3 
CSR ADDRESS (0) ? 160000<CR> : 
SUB-DEVICE # (0) ?. 0,1<CR> 

Q-FACTOR (0) 0? 1,0<CR> 


UNIT 3 

CSR ADDRESS (0) ? 160C00<CR> 
SUB=DEVICE # (0) ?  2=5<CR> 
Q-FACTOR (0) 0 ? O<CR> 


UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 6,7<CR> 
Q-FACTOR (0) 0? 1<CR> 


AS YOU CAN SEE IN THE ABOVE DIALOGUE, a RUNTIME SERVICES WILL 

BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 

ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS, TWO ENTRIES 

ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED. THE 
C 0000 FOR BOTH SINCE IT 


LD BE BY 
E ON AN EVEN ARY.) THE CSR yr ti AND Q-FACTORS FOR 
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND 0 RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 


THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 
# UNITS (D) ? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ? 1E0000<CR> 
SUB-DEVICE # (0) ?_ 0=7<CR> 

Q-FACTOR (0) 0 ? 0,1,0..,,.1,1<CR> 


AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 


SEQ 0009 


ae 
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2.7 QUICK START-UP PROCEDURE (XXDP+) 
TO START-UP THIS PROGRAM: 
BOOT XXDP+ 


Db 
. 


™ 
° 


TYPE *'R NAME’, WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


3. TYPE ‘‘START’ 

4. ANSWER THE ‘‘CHANGE HW’’ QUESTION WITH ‘’Y'’ 
5. ANSWER ALL THE HARDWARE QUESTIONS 

6. ANSWER THE ‘‘CHANGE SW’* QUESTION WITH ‘N’° 


WHEN YOU FOLLOW THIS Se roa = WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE P  & chime THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ERROR OR MESSAGES THAT MAY BE ISSUED BY 

A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE ‘IER’ FLAG IS SET (SECTION 2.3). 

THE GENERAL ERROR MESSAGE IS OF THE FORM 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXXXX 
ERROR MESSAGE 


»WHERE; NAME = DIAGNOSTIC NAME 
TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 
NUMBER = ERROR NUMBER 
UNIT NUMBER = 0 - N (N_IS LAST UNIT IN PTABLE) 
TST NUMBER = TEST AND SUBTEST WHERE on OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE C 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE “‘IER" OR "IR" FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR epoca 
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE 


ARE ALWA 
PRINTED UNLESS THE “‘IER*’, “*IBR'’ OR ‘‘IXE** FLAGS ARE SET SECTION 2.3). 


ag $5 MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


3.2 SPECIFIC ERROR MESSAGES 


BELOW ARE SAMPLE ERROR MESSAGES. EACH ERROR MESSAGE REPRESENTS DIFFERENT TYPES 
OF ERRORS DETECTED BY THIS DIAGNOSTIC. 


SEQ 0010 


| a 
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SEQ 0011 


ERROR MESSAGE EXAMPLE 1 


THIS ERROR IS INDICATIVE OF AN INCORRECT REGISTER orion WORD RETURNED 

TO THE DIAGNOSTIC. THE FIRST PART DEFINES THE TEST FUNCTION AND po THAT FAILED. 
THE SECOND PART PRIOVIDES THE REGISTER BITS AND TH HEIR MNEMONI CS FOR TH 

oo wid REGISTER OR STATUS WORDS. THE THIRD PART IS THE EXPECTED AND RECEIVED 


TST: 016 FIFO EXERCISER TEST 
CVTSA HRD ERR 01610 ON UNIT 00 TST 016 SUB 002 PC: 040624 
FIFO STATUS (IN WORD 9) INCORRECT AFTER WRITE FIFO 


TAPE BUS SIGNALS IN WORD #8: = DESIGNATOR <BIT #> 
PARERR<15> IEOT <12> IFMK <9> IRDY<6> IRWD<2> 
IRESV2<14> IIDENT<11> IHER <8> JIONL<5> IFBY<1> 
IRESV1<13> ICER (Cush ILDP<4> IFPT<O> 


GINA D #9: 
DATMIS<7> ILW<6> OUTRDY<5> INRDY<4> 
MESSAGE BUFFER ADDRESS = 047352 
uns on tide, tothe ENTS: 


WORD #9 EXPD: 000076 RECV: 000034 XOR: 000040 


ERROR MESSAGE EXAMPLE 2 


THIS ERROR SHOWS A FATAL FUNCTION ERROR FROM THE TAPE DRIVE,IN THIS 
iar oe ectictiae ERROR OCCURED WHICH INDICATES THAT THE CONTROLLER 


CVTSA HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC: 026202 
TSSR NOT CORRECT AFTER SPACE RECORDS COMMAND 

TSSR = 100214 

TSSR BITS SET: SC, 

TERMINATION CLASS CODE = UNRECOVERABLE ERROR 
sey Soe & 0 0 


PACKET WORD : 


ERROR MESSAGE EXAMPLE 3 
THIS ERROR SHOWS THAT THE MOTION BIT DID NOT GET SET WHILE DOING A REWING 
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WITH EXTENDED FEATURES MODE ENABLED. 


CVTS HRD ERR 00121 ON UNIT 00 TST 001 SUB 002 PC: 023306 
MOT BIT (XSTO) NOT SET DURING REWIND (EXTENDED FEATURES MODE) 
EXPD: 000312 RECV: 000112 XOR: 000200 


4.0 PERFORMANCE AND PROGRESS REPORTS 


AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE Soften tn WAS STARTED. 
THE * WITCH CAN BE USED TO CONTROL HOW OFTEN THE END 

OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 


SUCCESSFUL RUN EXAMPLE (PDP-11/23) 


DR>STA/FLA:PNT : HOE 

UNITS (D) ? 1 

UNIT 0 

DEVICE ADDRESS (0) 172520 ? <CR> 
VECTOR (0) 224 ? <CR> 

CHANGE SW (L) ? N<CR> 


THE ABOVE COMMAND WILL START THE DIAGNOSTIC. THE COMMAND HAS TWO 
or ON WHICH ARE ‘PRINT EACH TEST NBR AS EXECUTED’’ AND ‘HALT ON 


TST: 001 INITIALIZE #1 

TST: 002 WRAP DATA HIGH BYTE TEST 
TST: 003 WRAP DATA LOW BYTE TEST 
TST: 004 RAM TEST 

TST: 005 INITIALIZE e. TEST 

TST: 006 COMMAND REJECT TEST 

TST: 007 WRITE CHARACTREISTICS TEST 
TST: 008 VOLUME CHECK 

TST: 009 COMPLETION INTERRUPT TEST 
TST: ay BASIC PACKET PROTOCOL TEST 
TST: 011 NON-TAPE=MOTION COMMANDS TEST 


0 ERRORS 


NOTE: THE DIAGNOSTIC WIL RUN CONTINUOSLY UNLESS A PASS NUMBER LIMIT HAS BEEN 
SPECIFIED WITH THE ‘‘/PASS:** SWITCH. 


PROGRAM RUN TIMES 


THE ~ gar) RUN TIMES OF THE PROGRAM ARE LISTED BELOW. THESE FiguRes ARE 
TO BE D_ AS A_ GUIDE. THE TIMING WAS DONE ON A PDP-11/2 
PROCESSOR WITH A LA34 CONSOLE. 


SEQ 00% 


\ 


4 


————-—--—— 
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THE TTeRATh RUNS_IN TWO MODES; NO ITERATIONS AND DEFAULT MODE. IN ne 
NO ITERATIONS MODE, EACH TEST IS RUN ONCE, WITH NO ITERATIONS. IN TH 
DEFAULT tt ‘ee TEST IS REPEATED B’ THE NUMBER OF TIMES INDICATED BY 
THE ITERATION UNT. NO ITERATIONS MODE IS SELECTED BY ANSWERING THE 
INHIBIT ITERATIONS YQUESTION WITH A ‘'V’’ (YES). 


TEST N/I_ ITER DEF 
NUMBER SECS. SECS SECS. 
1 1 30 29 
a 1 10 9 
3 1 8 7 
4 25 120 95 

5 P) 140 135 
6 25 475 450 

7 20 20 0 
8 1 10 9 
9 20 20 0 
10 1 2 1 
11 8 11 3 


THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 12 IN ONE COMMAND: 
Q.V. 1 MIN 57 SECONDS 
DEFAULT 12 MINS 

5.0 DEVICE INFORMATION TABLES 

WHENEVER THE PROGRAM IS STARTED, VIA THE STA(RT) COMMAND, 

THE SUPERVISOR REQUESTS THE FOLLOWING P=TABLES PARAMETER 


es 
CHANGE HW (L) ? 


# UNITS (D) 7? <ENTER THE NUMBER OF M7196 CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT 0 


DEVICE ADDRESS (0) 172520 ? wate THE ADDRESS OF THE 
TSBA/TSDB REGISTER> 


VECTOR (0) 224 ? hd ADDRESS OF INTERRUPT 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE *# UNITS?°* QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING. 


IN ADDITION, ON A_START, RESTART OR CONTINUE THE SUPERVISOR 
ot hure CHANGES TO THE’ SOFTWARE OPERATING PARAMETERS, AS 


SEQ 0013 
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CHANGE SW (L) ? 


INHIBIT ITERATIONS (L) N ? 


6.0 TEST SUMMARIES 
BUS RESET TEST 


THIS TEST VERIFIES rt THE M7196 MODULE’S DEVICE A hla ARE 

ACCESSIBLE ON THE BUS (SUBTEST 1) AND THEN CHECKS T THE 

a ey, INITIALIZATION SELF-TEST MICRODIAGNOSTIC DID ‘Nor FIND 
Y BASIC PROBLEMS IN “AS FOL MODU ee — A LOGIC TESTED or es ~ 


MICRODIAGNOSTIC SEQUENCE TO BE COMPLETED), AND THEN CHECKS THE eee F 
CONTENTS OF THE TSSR REGISTER. «successrut INITIALTZATI ON I = Ny? 


UAL 
THE ERROR REPORT ANALYZES THE TSSR CONTENTS AND DISCERNS AND 
REPORTS ONE OF THREE POSSIBILITIES: 
~& 
1. TSSR CONTENTS ARE aon ae ait (ANY OF BITS 11-14 ARE ai 


2. SSR = 0, SC_= 0 AND THE ERROR CODE IN BITS 0-5 IS IN 
THE RANG _* 17-13: THIS IS A FATAL ERROR. THE ERROR 
CODE IS DECODED AND THE APPROPRIATE DESCRIPTION GIVEN. 
INDICATES THAT A SERIOUS PROBLEM EXIST S. 


TEST 2: WRAP DATA = HIGH BYTE 


THIS TEST VERIFIES OPERATION OF: 


1. PART OF THE 11/23 ae reat SECTION OF THE M7196 
MODULE: PART OF THE INPUT FILE (TSDB HIGH BYTE), PART 
OF THE OUTPUT FILE (TSSR” HIGH BYTE AND TSBA, BOTH 


SEQ 0014 

















nsession 
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BYTES), PART OF THE DCOOS TRANSCEIVER CIRCUITS (ADDRESS 
DECODER, BDAL DRIVERS, HIGH BYTE OF INTERNAL DAL BUS 
DRIVERSS AND BASIC PROGRAMMED I/O CONTROL SEQUENCES 


2. PART OF 2901 MICROPROCESSOR ELEMENTS (Q-REGISTER, 
/ REGISTER 0, ROTATE AND NEGATE FUNCTIONS 


3. Y AND SOURCE BUSES; 
4. BASIC MICROPROGRAM SEQUENCES. 


SBA_AND THE FINAL CONTENT 
oF TSSR IS CORRECT (SAME AS “PR pe EXCEPT FOR BITS 


TEST 3: WRAP DATA = LOW BYTE 
THIS TEST FURTHER VERIFIES OPERATION OF MANY OF THE SAME 
ELEMENTS TESTED IN TEST 2, AND ADDITIONALLY VERIFIES: 
1. LOW BYTE OF THE TSDB INPUT FILE REGISTER, 


2. LOW BYTE OF INTERNAL DAL BUS DRIVERS ON THE DC005 
TRANSCEIVER CIRCUITS, 


3. BASIC FUNCTIONING OF PARTS OF THE RAM. 


WAITS FOR THE SSR BIT IN TSSR TO SET, THEN CHECKS THE CONTENTS 
OF BOTH TSBA AND TSSR. THE MODULE IS FUNCTIONING CORRECTLY IF 
SBA_AND THE FINAL CONTENT 


F 
8 AND 9, WHICH SHOULD CONTAIN BITS 8 AND 9 OF THE DATA PATTERN 
WRITTEN, AN ERROR IS REPORTED AND A DESCRIPTIVE ANALYSIS GIVEN 
SBA IS D HE ANALYSIS 


> 
~ 
> 
5 
ay 
~ 
~ 
m 
2 
3 
x 
“nn 
— 
2 
oS 
=~ 
= 
@ 
—< 
~ 
m 
nn 
wn" 
— 
> 


TEST 4: RAM TEST 
THIS TEST VERIFIES THAT ALL LOCATIONS OF THE RAM ON THE M7196 





SEQ 0015 


a 
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CAN PROPERLY hwy AND READ BACK ALL gate hog AND THAT 

EACH Sta LOCATION IS UNIQUELY ADDRESSED (1.E., T fhe AND ONLY 

ONE LOCATION IS ACCESSED BY ANY PARTICULAR ADDRESS) . 

BYPRODUCT OF THESE TESTS IS A VERIFICATION OF TWO REGISTERS IN 
THE 2901 AND THE CAPABLITY OF THE 2901 TO CORRECTLY PERFORM AN 


SECOND INITIALIZATION TEST 


THIS ee VERIFIES THE SAME ELEMENTS AS es INITIALIZATION TEST 
#1 0 AM IS CLEARED TO ZERO 


D TO ZERO. 
THIS IS_A CONFIDENCE CHECK OF A PART OF THE SELF-TEST — 
(1.E., THAT IT IS REALLY BEING yg et FOR EACH OF 

SUBTESTS (ONE FOR INITIALIZING VIA A BUS INIT, THE OTH ERP 

iS beatéioee: BY WRITING INTO THE TSSR), THE FOLLOWING SEQUENCE 


nn 
mm 
oO 
x 
nn 
~ 
= 
> 
~ 
o 
om 
=z 
=~ 
> 
md 
2 
5 
_ 
nn 
S 


1. EACH RAM LOCATION AND 2901 REGISTERS 10 AND 11 ARE SET 
TO ALL 1°S BY USING WRITES INTO THE TSDB REGISTER (LOW 
BYTE AND MAINTENANCE MODE WORD WRITES). 


2. THE CONTROLLER IS INITIALIZED AND THE VARIOUS CHECKS ON 
= —- IN INITIALIZATION TEST #1 ARE 


3. S$ (377 . oh ARE WRITTEN INTO THE LOW BYTE OF TSDB, 
uHICH SHOULD CAUSE RAM LOCATION 0 TO BE WRITTEN TO ALL 
1°S SINCE 5901 REGISTERS 10 at 11, SPECIFYING THE RAM 


OULD BE_O. RAM LOCATI 
WRITING A WORD OF ZEROS INTO THE TSDB. THE RESULTING 
LOW BYTE OF TSBA SHOULD CONTAIN ALL 1°S. 


4. THE ENTIRE RAM IS SCANNED. LOCATION 0 SHOULD CONTAIN 
ALL_1°S AND THE REMAINING LOCATIONS, ag! FOR THE 
MESSAGE BUFFER IMAGE AREA, SH _ a. _ 0. 
DISCREPANCIES ARE REPORTED. AN ERROR AT THIS POINT IS 
MOST LIKELY DUE TO A ROM, PIPELINE OR SEQUENCER PROBLEM 
OR A TIMING PROBLEM. 


TEST 6: COMMAND REJECT 


COMMAND DECODING DMA DLI 

nr tyedd S$: SUBTEST 1 SEQUENCES THROUGH ALL COMMAND eh (OTHER 
WRITE CHARACTERISTICS) WITH THE INTERRUPT ENABLE (IE) BIT 

CLEAR AND VERIFIES THAT AN INTERRUPT !S NOT GENERATED BY THE 

REJECTED COMMAND; SUBTEST 2 PERFORMS SIMILARLY TO SUBTEST 1 BUT 


SEQ 0016 
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SETS THE IE BIT IN EACH COMMAND WORD AND VERIFIES THAT AN 
INTERRUPT IS GENERATED WHEN THE COMMAND IS REJECTED. 


WRITE CHARACTERISTICS 


THIS TEST Tr vcalt BASIC gaye OF THE WRITE CHARACTERISTICS 

COMMAND. VERIFIES THAT THE COMMAND BLOCK AND CHARACTERISTICS 
DATA BLOCK Art FETCHED PROPERLY FROM CPU MEMORY, THE NEED BUFFER 
ADDRESS (NBA) BIT IN TSSR IS HANDLED PROPERLY, AND THAT A PROPER 
MESSAGE PACKET IS STORED, WHERE gp wid THIS TEST DOES NOT 
CHECK THAT VARIOUS T ERISTIC 


TO FLAG UNEXPECTED. 1 NTERRUPTS. IF AN INTERRUPT OCC 
PROBLEM EXISTS IN EITHER THE 11/23 BUS INTERFACE SECTION OR IN 
THE ROM OR PIPELINE. 


VOLUME CHECK 


THIS TEST VERIFIES THAT THE VOLUME CHECK (VCK) BIT, A FLAG HELD 
WITHIN THE M7196 AND APPEARING IN XSTO, IS SET BY INITIALIZE AND 
CLEARED BY og Bee een wah CHARACTERISTICS COMMAND WITH THE 
CvC BIT SET. IT IS ALSO VERIFIED THAT A WRITE CHARACTERISTICS 
COMMAND WITH THE CVC BIT CLEAR DOES NOT AFFECT THE STATE OF THE 
VOLUME CHECK BIT. THE ACTUAL FUNCTION OF VOLUME ny THAT OF 
PREVENTING OR ALLOWING A TAPE MOTION COMMAND DEPENDING eo 
WHETHER VOLUME CHECK IS SET OR CLEAR, IS NOT CHECKED BY THIS 
TEST; THIS FUNCTIONALITY IS CHECKED IN THE INDIVIDUAL TESTS OF 
TAPE MOTION COMMANDS. 


COMPLETION INTERRUPT 


THIS TEST VERIFIES THAT AN INTERRUPT IS GENERATED AT THE 
COMPLETION OF THE WRITE CHARACTERISTICS San IF THE INTERRUPT 
ENABLE (IE) BIT IN THE COMMAND HEADER WORD IS SET. THIS TEST 
CHECKS THE FUNCTIONING OF THE INTERRUPT LOGIC AND BASIC 
PROCESSING OF THE IE BIT. 


COMMANDS AR 
FIRST WITH IE=1 AND THE SECON H IE=0. IT IS VERIFIED THAT 
4 gy fe GENERATED AFTER” THE SECOND COMMAND AND THAT THE 


TEST 10: BASIC PACKET PROTOCOL 


THIS TEST He BASIC OPERATION OF THE MESSAGE BUFFER RELEASE 
COMMAND , UNCTION OF THE ACK BIT IN THE COMMAND HEADER WORD, 
AND THE REGISTER MODIFICATION REFUSED (RMR) LOGIC. 


SEQ 0017 
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NON-TAPE MOTION COMMANDS 


THIS + gg VERIFIES PROPER ol toe OF THE INITIALIZE 
COMMAND. TWO SUBTESTS AP eee THE FIRST bent: THAT 
STION AND STORES A VALID 


THE COMMAND RUNS TO con 

MESSAGE PACKET. THE SEC ) VERIFIES THAT NON i: 0 
VALUES IN THE COMMAND MuvE FIELD CAUSES COMMAND REJECT. 
7.0 MAINTENANCE HISTORY 


REVISION A = MARCH 1982 


ae ae 


ree 


. G6 2 
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SEQ 0019 
2 .TITLE TSV2 = PROGRAM HEADER 
; .SBTTL PROGRAM HEADER 
10 .MCALL SVC », 
11 000000 svc : INITIALIZE SUPERVISOR MACROS 
12 -ENABLE LC 
13 .NLIST BEX,CND 
19 000000 -ENABL ABS,AMA 
20 002000 = 
21 002000 BGNMOD TSV2 
002000 TSV2:: 
22 
23 r++ 
24 : THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
25 + THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
os 
29 002000 POINTER BGNSW,BGNSFT,BGNAU,BGNDU,BGNRPT 
30 002000 HEADER CVTSA.A,0,655., 
002000 LSNAME : : :DIAGNOSTIC NAME 
002000 103 ASCII /C/ 
001 126 ASCII /V/ 
002002 124 SASCII /T/ 
003 123 “ASCII /S/ 
004 101 “ASCII /A/ 
002005 000 “BYTE 0 
006 000 .BYTE 0 
002007 000 “BYTE 0 
002010 LSREV:: ZREVISION LEVEL 
002010 101 eASCII  /A/ 
002011 LSDEPO: : 70 
002011 060 eASCII /0/ 
002012 LSUNIT:: sNUMBER OF UNITS 
002012 000000 .WORD 0 
002014 LSTIML:: SLONGEST TEST TIME 
002014 001217 .WORD 655. 
002016 LSHPCP: : :POINTER TO H.W. QUES. 
002016 045634 .WORD LSHARD 
002020 LSSPCP: : :POINTER TO S.W. QUES. 
002020 045766 .WORD LSSOFT 
002022 LSHPTP:: :PTR. TO DEF. H.W. PTABLE 
002022 002154 .WORD LS$HW 
002024 LSSPTP:: :PTR. TO S.W. PTABLE 
002024 002164 -WORD L$SW 
002026 LSLADP: : :DIAG. END ADDRESS 
002026 046404 .WORD LSLAST 
002030 LSSTA:: ZRESERVED FOR APT STATS 
002030 000000 .WORD 0 
002032 LSCO:: 
002032 000000 .WORD 0 
002034 LSDTYP:: :DIAGNOSTIC TYPE 
002034 000000 .WORD 0 
002036 LSAPT:: ZAPT EXPANSION 
002036 000000 .WORD 0 
002040 LSDTP:: :PTR. TO DISPATCH TABLE 


002040 002124 .WORD LSDISPATCH 





ee - » | 





















TSV2_= PROGRAM HEADER 
PROGRAM HEADER 


000000 
002056 000000 
00 003376 
poster 022654 
002064 000000 
000000 
002070 022342 
pears 022440 
002074 000000 
002076 003404 
002100 104035 
o's A 000000 
002104 021546 
022626 
022546 
021536 





MACRO M1113 25-MAY-82 08:41 


LSPRIO:: 
LSENVI:: 
LSEXP1:: 
LSMREV:: 


LSEF:: 


LSSPC:: 
LSDEVP: : 
LSREPP: : 
LSEXP4:: 
LSEXPS:: 
LSAUT:: 
LSDUT:: 
LSLUN: : 
LSDESP:: 
LSLOAD:: 
LSETP:: 
LSICP:: 
LSCCP:: 
LSACP:: 
LSPRT:: 
LSTEST:: 
LSDLY:: 
LSHIME:: 


- WORD 
«WORD 
«WORD 
-BYTE 
-BYTE 


«WORD 
«WORD 


- WORD 
- WORD 
«WORD 
- WORD 
- WORD 
- WORD 
«WORD 
- WORD 
«WORD 
EMT 

» WORD 
- WORD 
- WORD 
- WORD 
- WORD 
- WORD 
- WORD 
- WORD 


H 2 


PAGE 7=1 
0 DIAGNOSTIC RUN PRIORITY 
0 sFLAGS DESCRIBE HOW IT WAS SETUP 


sEXPANSION WORD 


SVC REV AND EDIT # 
CSREVISION 
CSEDIT 


sDIAG. EVENT FLAGS 


0 
0 
; POINTER TO DEVICE TYPE LIST 
LSDVTYP 
sPTR. TO REPORT COLE 
LSRPT 
0 
0 
3PTR. TO ADD UNIT CODE 
LSAU 
PTR. TO DROP UNIT CODE 
LSDU 
‘ sLUN FOR EXERCISERS TO FILL 
:POINTER TO DIAG. DESCRIPTION 
_ LSDESC 


sGENERATE SPECIAL AUTOLOAD EMT 
ESLOAD 
0 POINTER TO ERRTBL 


3PTR. TO INIT CODE 
LSINIT 

sPTR. TO CLEAN-UP CODE 
LSCLEAN 

zPTR. TO AUTO CODE 
LSAUTO 

:PTR. TO PROTECT TABLE 
LSPROT 
0 TEST NUMBER 


0 sDELAY COUNT 
0 PTR. TO HIGH MEM 


SEQ 0020 
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TSV2_ = PROGRAM HEADER 
DISPATCH TABLE 





-SBTTL DISPATCH TABLE 


p++ 
; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


DISPATCH 11 
LSDISPATCH:: 
WORD 








Sn RSEREnineeieetiiieeee 


i 2 
| TSV2 = PROGRAM HEADER MACRO M1113 25=MAY=82 08:41 PAGE 9 
DEFAULT HARDWARE P=TABLE SEQ 0022, 
43 .SBTTL DEFAULT HARDWARE P-TABLE - 
45 3++ 
46 ; THE DEFAULT HARDWARE P=TABLE CONTAINS DEFAULT VALUES OF 
47 ; THE TEST=DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
48 ; IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 
50 002152 P BGNHW DFPTBL :DEFAULT HARD=P=TABLE 
002152 000003 «WORD 110000-L$Hw/2 
002154 LSHW:: 
002154 DFPTBL: : 
52 002154 172520 .WORD 172520 : 1ST (OF 2) REGISTERS. 
53 002156 000224 [WORD 224 t INTERRUPT VECTOR 
54 002160 000200 “WORD PRI04 : INTERRUPT PRIORITY. 


55 002162 ENDHW 
002162 L10000: 





| K 2 ; 
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SOFTWARE P=TABLE SEQ 0023 
57 .SBTTL SOFTWARE P-TABLE 
36 
p++ 
60 : THE SOFTWARE P=TABLE CONTAINS THE VALUES OF THE PROGRAM 
6 : PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 
63 002162 z BGNSW SFPTBL 
002162 000004 «WORD £L10001-L$sw/2 
002164 L$SwW:: 
64 2164 SFPTBL:: 
65 002164 000000 TRANSTST:: » WORD 0 3: ENABLE TEST OF a= ay IF =1 
66 002166 000000 NOITS:: “WORD 0 : INHIBIT T ITERATION OP TION. 
: 12°NZ = INHIBIT ITERATE. 
69 002170 000017 LERRMAX: : .WORD 15. : LOCAL (PER TEST) ERROR LIMIT 
70 002172 000310 GERRMAX: : -WORD 200. |: GLOBAL (PER UNIT) ERROR LIMIT 
0021 L10001: 


73 002174 ENDMOD 













TSV3 = GLOBAL AREAS 
SOFTWARE P-TABLE 


4 
8 
13 
19 
20 002174 
002174 
; 
23 
24 
25 
26 
27 
28 
29 
33 002174 
100000 
020000 
10000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
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-TITLE TSV3 = GLOBAL AREAS 
~SBTTL GLOBAL EQUATES SECTION 


BGNMOD TSV3 
TSV3:: 


-SBTTL GLOBAL EQUATES SECTION 


p++ 
: THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
; ARE USED IN MORE THAN ONE TEST. 


EQUALS ; GET STANDARD EQUATES. 
: BIT DIFINITIONS 


: : EVENT FLAG_DEF INITIONS 
: EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


== 3 3 START COMMAND WAS ISSUED 
2 RESTART COMMAND WAS ISSUED 
EF .CONT INUE== 3 CONTINUE COMMAND WAS ISSUED 
N 3 A NEW PASS HAS BEEN STARTED 
58: 3 A POWER-FAIL/POWER-UP OCCURRED 


SEQ 0024 


a 
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GLOBAL EQUATES SECTION SEQ 0025 
3 PRIORITY LEVEL DEFINITIONS 
000340 PRIO7== 340 
000300 PRI06== 300 
000240 PRIO5== 240 
0200 PR1I04== 200 
000140 PRIO3== 140 
00100 PRIO2== 100 
000040 PRIO1== 40 
0000 PRI00== 0 
OPERATOR FLAG BITS 
00 EVL== 4 
000010 LOT== 10 e 
000020 ADR== 20 
0 IDU== 40 
000100 ISR== 100 
200 == 200 4 
00 BOE== 400 
000 PNT== 1000 
000 PRI== 2000 vy 
004000 IXE== 4000 
0000 IBE== 10000 
020000 IER== 20000 
040000 LOE== 40000 
3 100000 HOE== 100000 
35 002174 KT11 DEFINE MEMORY MANAGEMENT REGISTERS 


|SBTTL MEMORY MANAGEMENT DEFINITIONS 
jax VECTOR ADDRESS 


000250 VE 
z*KT11 STATUS REGISTER ADDRESSES 
177572 SRO= 177572 
177574 SR1= 177574 
177576 SR2= 177576 
172516 “x 172516 
s*USER *‘I** PAGE DESCRIPTOR REGISTERS 
UIPDRO= 177600 
UIPDRI= 177602 
UIPDR2= 177604 
UIPDRS= 177606 
UIPDR4= 177610 


177634 
UDPDR7= 177636 
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MEMORY MANAGEMENT DEFINITIONS 


- ENDC 
s*USER ‘‘I"* PAGE ADDRESS REGISTERS : 
UIPARO= 177640 


-IF NB 
s*USER ‘'D'’ PAGE ADDRESS REGISTERS 
UDPARO= 177660. 


_ 66 — 
UDPAR1= 177662 
UDPAR2= 177664 
UDPAR3= 177666 
UDPAR4= 177670 
UDPARS= 177672 
UDPAR6= 177674 
UDPAR7= 177676 
-ENDC 
-ENDC 
IF NB 
;*SUPERVISOR ‘'I'' PAGE DESCRIPTOR REGISTERS 
SIPDRO= 172200 
SIPDR1= 172202 
SIPDR2= 172204 
SIPDR3= 172206 
SIPDR4= 172210 
SIPDRS= 172212 
SIPDR6= 172214 
ore 172216 
3s *SUPERVISOR ‘'D'* PAGE DESCRIPTOR REGISTERS 
SDPDRO= 172220 
SDPDR1= 172222 
SDPDR2= 172224 
SDPDR3= 172226 
SDPDR4= 172230 
SDPDRS= 172232 
SDPDR6= 172234 
rears 172236 
s*SUPERVISOR ‘*I’’ PAGE ADDRESS REGISTERS 
IPARO= 17224 
SIPAR1= 172242 
IPAR2= 172244 
SIPAR3S= 172246 
SIPAR4= 172250 
SIPARS= 172252 
SIPAR6= 172254 
_— 172256 
;*SUPERVISOR ‘'D'* PAGE ADDRESS REGISTERS: 
SDPARO= 17226 
SDPAR1= 17226 
SDPAR2= 172264 


SEQ 0026 


_— 








3 
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MEMORY MANAGEMENT DEFINITIONS SEQ 0027 
SDPAR3= 172266 
SDPAR4= 172270 
SDPARS= 172272 
SDPAR6= 172274 
SDPAR7= 172276 
~ENDC 
-ENDC 
3 *KERNEL razon DESCRIPTOR REGISTERS 
172300 KIPDRO= 172300 
172302 KIPDRI= 172302 
172304 IPDR2= 172304 
172306 KIPDR3= 172306 
172310 KIPDR4= 172310 
172312 KIPDRS= 172312 
172314 KIPDR6= 172314 
172316 KIPDR7= 172316 
-IF NB 
3 *KERNEL ''D"* PAGE 
DESCRIPTOR REGISTERS 
KDPDRO= 172320 
KDPDRi= 172322 
KDPDR2= 172324 
KDPDRS= 172326 
KDPDR4= 172330 
KDPDRS= 172332 
KDPDR6= 172334 
we 172336 
s*KERNEL ''I"’ PAGE ADDRESS REGISTERS 
172340 KIPARO= 172340 
172342 KIPARI= 172342 
172344 KIPAR2= 172344 
172346 KIPARS= 172346 
172350 KIPAR4= 172350 
172352 KIPARS= 172352 
172354 KIPAR6= 172354 
172356 or 172356 
s*KERNEL ''D'" PAGE ADDRESS REGISTERS 
KDPARO= 172360 
KDPAR1= 172362 
= 172364 
172366 
172370 
172372 
172374 
172376 
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TSVOS REGISTER AND PACKET DEFINITIONS 





177520 


100000 
04 


0 0 
000016 
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-SBTTL TSVOS REGISTER AND PACKET DEFINITIONS 


177562 
177520 


nunen 
nnnnun 
Os 
NO 
™N 
w 
a 
So 


SOME GENERAL EQUATES. 


: CONSOLE INPUT DATA BUFFER 
: BDV11 PAGE CONTROL REGISTER 


3+ 
sBIT DEFINITIONS FOR TSSR REGISTER 


NBA= BIT 

HIADDR= BIT9!B1T8 
SSR= B1T7 

OFL= BIT6 

FATERR= BIT4!B1TS 
TERCLS= BIT3!B1T2!61T1 


+ SPECIAL CONDITION 


NEED BUFFER ADDRESS 
3 EXTENDED ADDRESS BITS 
SUB SYSTEM READ 


OFF LINE BIT 
sFATAL TERMINATION ERROR CODES 
: TERMINATION CODES 


sBIT_ DEFINITIONS FOR EXTENDED STATUS REGISTER 0 
2 (XSTO) 


5 
4 
3 
2 
1 
0 


~WO0 0 2 


_—o 


3 TAPE MARK DETECTED 


ERROR 
:NON EXECUTABLE FUNCTION 
: ILLEGAL COMMAND 
: ILLEGAL ADDRESS 


TRA N MOTION 
ANSPORT ON LINE 
HINTERRUPE ENABLE 


;VOLUME CHECK BIT 

; PHASE ENCODED DRIVE 
sWRITE LOCKED 
tay OF TAPE 
sEND OF TAPE 


EF INITIONS FOR EXTENDED STATUS REGISTER 1 


SEQ 0028 








| dD 3 
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TSVOS REGISTER AND PACKET DEFINITION  $€0 0029 

97 :- 

98 100000 K1.DLT = B1T15 DATA LATE 

99 0000 X1.SPARE= BIT14 :NOT USED 

100 020000 X1.COR = BIT13 > CORRECTABLE DATA ERROR 

101 017375 X1.MBZ = B1T12+B1T11+B1T10+B119+B117+B116+B1T5*B1T4+BIT3+BIT2+BITO ; ALWAYS 0 
102 000400 X1.RBP = BIT8 :READ BUS PARITY ERROR 

103 000002 X1.UNC = BIT1 SUNCORRECTABLE DATA OR HARD ERROR 

105 i+ 
106 SBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 
107 + (xST2) 
109 100000 K2.0PM = BIT15 sOPERATION IN PROGRESS (TAPE MOVING) 

110 040000 X2.RCE = BIT14 *RAM CHECKSUM ERROR 

111 035400 X2.SPARE= B1T13+B1T12+BI1T11+B1T9+B1T8 | ;NOT USED BY TSVOS (ALWAYS=0) 

112 002000 X2.WCF = BIT10 sWRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT) 
113 000200 X2.EXTF = BIT7 ZIF WRITE CHAR CMD THEN = EXTENDED FEATURES ENABLED 
114 000100 X2.BUFE = BIT6 SIF WRITE CHAR CMD THEN = BUFFERING ENABLED 

115 000077 X2.REV. = 000077 SIF WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL 
116 000007 X2.UNIT = BIT2+BIT1+B1TO ;I1F GET STATUS THEN = CURRENTLY SELECTED UNIT NO. 
118 ot 
119 [BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3 

120 + (XST3) 
122 177400 X3.MDE = 177400 ZMICRO=DIAGNOSTIC ERROR CODE 

123 200 X3.SPARE= BIT7 ‘NOT USED BY TSVOS5 

124 000100 x3.0P1 = BIT6 SOPERATION INCOMPLETE 

125 0040 X3.REV = BITS SREVER 

126 000020 X3.TRF = BIT4 S TRANSPORT RESPONSE FAILURE 

127 000010 X3.DCK = BIT3 [DENSITY CHECK 

128 000006 X3.MBZ2 =BIT2+BIT1 [NOT USED ALWAYS 0 

129 000001 X3.RIB = BITO SREVERSE INTO BOT 

131 i+ 

132 7B1T DEFINITIONS FOR EXTENDED STATUS REGISTER 4 

133 + (XST4) 

135 100000 K4.HSP = BIT15 :HIGH SPEED 

136 040000 X4.RCE = BIT14 SRETRY COUNT EXCEEDED 

137 020000 X4.TSM = BIT13 “TRANSPORT SPECIAL MODE 

138 017400 X4.MBZ = BIT12+B1T11+BIT10+BIT9+BIT8 | ;NOT USED ALWAYS 0 

139 000377 X4.WRC = 000377 sWRITE RETRY COUNT FIELD 

141 

142 3+ 

143 : 

164 ZTSSR TERMINATION CODES (BIT 0-2) 

129 i 

148 000006 TSREJ= 3*2 :COMMAND REJECTED 

149 000006 UNREC= 6 SUNRECOVERABLE ERROR 

151 i+ 

152 : 

153 ZDEVICE REGISTER OFFSETS 
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PAGE 14-2 
TSVOS REGISTER AND PACKET DEFINITIONS 


154 ; 
155 = 
156 
157 000000 TSBA== 0 
158 0 0 TSDB== 0 3; TSDB/TSBA REGISTER 
159 000001 TSBAH== 1 
166 00600 TSDBH== 1 3; TSDB/TSBA REGISTER HIGH BYTE 
161 TSSR== 2 [TSSR REGISTER 
166 000003 TSSRH== 3 STSSR REGISTER HIGH BYTE 
164 3¢ 
19? ; TSDB ADDRESS BIT DEFINITIONS 
44 000003 A1716 = = BIT1+B1T0 sADDRESS BITS 17:16 ARE IN 1:0 
169 
if $ COMMAND DEFINITIONS 
172 00001 b. AE al = 17 3GET STATUS 
173 000013 P. = 13 s INITIALIZE 
174 00001 4 CONTROL = 12 sCONTROL COMMANDS 
175 00001 P. FORMAT = 11 FORMAT 
176 000010 P.POSITION = 10 sPOSITION 
177 0000 P.WRTSUB = 6 3s SUBSYSTEM WRITE 
178 00000 P.WRITE = 5 WRITE 
179 000004 P.WRTCHAR = 4 sWRITE CHARACTERISTICS 
180 000001 P.READ =1 READ 
182 
3+ 
i‘ 3; COMMAND PACKET HEADER WORD BIT DEFINITIONS 
185 100000 P.ACK = BIT15 spurren AVAIL FOR CONTROLLER 
186 040000 P.CVC = BIT14 sCLEAR VOLUME CHECK 
187 020000 P.OPP = BIT13 SREVERSE SEQUENCE OF DATA BITS 
188 01 P.SWB = BITI2 sSWAP BYTES IN MEMORY 
189 007400 P.MODE = BIT11! BIT10!81T9:81T8 ee COMMAND MODE FIELD 
190 000200 P.IE = BIT7 : INTERRUPT ENABLE 
191 000140 P.FMT= BIT6!BI1TS TPACKET UNEADER ire (ALWAYS=0) 
3 000037 P. = 37 [MAJOR COMMAND FIELD 
34 
Lb ; CONTROL COMMAND MODE CODES 
196 000000 PC. > oh = 0*256. sRSL EASE BUFFER 
197 000400 PC.REWIND = 1*256. REWIND 
198 001000 PC.NOOP = 22256. 3NO-OP 
199 002000 PC. IEREW = 42256. SREWIND IMMEDIATE INTERRUPT 
500 002400 PC.ERASE = 5256. sSECURITY ERASE 
202 + 
4 ; CONTROLLER RAM DEFINITIONS 
205 000167 RMCHBEG = 167 CHARACTERISTICS 10 DATA BEGIN RAM ADDRESS 
000200 RMCHEND = 200 SCHARACTERISTICS 10 DATA END RAM ADDRESS 
207 000201 RMPKTBEG= 201 ;COMMAND PACKET BEGIN RAM ADDRESS 
208 000210 RMPKTEND= 210 D PACKET END RAM ADDRESS 
09 000215 RMMSGBEG= 215 sMESSAGE BUFFER BEGIN RAM ADDRESS 
210 000234 RMMSGEND= 234 SMESSAGE BUFFER END RAM ADDRESS 
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SEQ 0031 
:+ 


REGISTER DEFINITIONS IN THE MESSAGE BLUTFeER 


XSTO== 6 sEXTENDED STATUS REGISTER 0 (WORD 4) 
XSTl== 8. EXTENDED STATUS REGISTER 1 (WORD 5) 
XST2== 10. sEXTENDED STATUS REGISTER 2 (WORD 6) 
XST3== 12. sEXTENDED STATUS REGISTER 3 (WORD 7) 
XST4== 14. EXTENDED STATUS REGISTER 4 (WORD 8) 


OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 


PKLOW = 2 LOW ORDER CHARACTERISTIC DATA POINTER 
PKHI = 4 HIGH ORDER CHARACTERISTIC DATA POINTER 
PKBCNT = 6 sNUMBER OF BYTES IN DATA PACKET 
EXBCNT=10 NUMBER OF BYTES IN EXTENDED DATA PACKET 


i+ 
sDATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND 


BSELO =0 sBYTE 0 
BSEL1 = 1 sBYTE 1 
SEL2 =2 WORD 2 
SELDATA = 4 sWORD 3 


3+ 
sBSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND 


NOP = 0 3sNO-OP 
PW.RDRAM = 1 sREAD RAM 
PW. WTRAM =2 SWRITE RAM 
PW.RFIFO = $3 sREAD FIFO 
PW. WFIFO = 4 sWRITE FIFO 
PW.RDSTAT = § 2 READ STATUS 
PW.WCTL = 6 WRITE as CONTROL 
PW. WFMT s7 TURI TE TAPE FORMAT 
Pw. WMISC = 10 WRITE RI SCELLANEOUS 
PW. WNPR = 11 [WRITE NPR CONTROL 
PW.D22 = 20 3D0 MICROTEST 22 
PW.D11 = 21 :D0 MICROTEST 11 
PW.D13 = 22 3:D0 MICROTEST 13 
Pw.NO1311 = 23 sDISABLE MICROTEST 11 AND 13 
PW.RDEXT = 24 sREAD EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPORTS 


3+ 
sBSEL1 CODES FOR WRITE TAPE CONTROL 


IFAD = FORMATTER ADDRESS 
SITADO = TRANSPORT ADDRESS BIT 0 
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| TSVOS REGISTER AND PACKET DEFINITIONS SEQ 0032 

268 060040 WC.11TAD = BITS zITAD1_ = TRANSPORT ADDRESS BIT 1 

269 000020 WC. ISRESV = BITS TIRESVS = RESERVED #5 

270 000010 WC. IREW = BIT3 SIREW = REWIND 

271 000004 WC. IRWU = BIT2 ZIRWU == REWIND AND UNLOAD 

272 00000 WC IFEN = BIT1 sIFEN = FORMATTER ENABLE 

273 000001 . WC.1G0 = BITO 360 

274 

275 3+ 

$76 BSEL1 CODES FOR WRITE FORMAT 

278 000200 WF. IHISP = BIT7 ZIHISP = HIGH SPEED 

279 100 ~ IWRT = BIT6 sIWRT = WRITE 

280 040 WF. IREV = BITS sIREV = REVERSE 

281 020 WF. IWEM = BITS zIWFM = = WRITE FILE MARK 

282 000010 WF JEDIT = BIT3 sIEDIT = EDIT 

283 004 WF. ERASE = BIT2 ZIERASE = ERASE 

284 02 WF. 13RESV = BIT1 sIRESV3 = RESERVED #3 

285 000001 WF .I4RESV = BITO sIRESV4 = RESERVED #4 

287 

288 i+ 

289 3BSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND 

291 000200 MS.EXT = BIT7 z INVERT SENSE OF EXTENDED FEATURES _switcn 

292 000020 MS.RSFIFO = BIT4 3RESET FIFO AND INPUT PARITY ERR 

293 000010 MS .RSTAPE = BIT3 RESET TAPE STATUS IN 2 FLIP*ELOPS” 

294 000006 MS.ATTN = BIT2!B1T1 T ATTENTION TRIGGER FIELD 

299 000001 MS.RSD = BITO sRESET TIMER A,B THEN DELAY TIMES IN SEL2 
s+ 

97 > MS.ATIN SUBCODES 

299 000000 MSA.NOP = 0#2 ZNO-OP (NOTHING TRIGGERED) 

300 000002 MSA.VOL = 1#2 sSIMULATE ON-LINE/OFF=LINE TRaNSISTION 

301 000004 MSA.NRAM= 2%2 sFORCE NON-FATAL RAM ERROR (FORCES ERRCODE 54) 

302 000006 MSA.FRAM= 3*2 TFORCE FATAL RAM ERROR (CAUSES SCE TO SET) 
2% 

38 3 WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS 

306 000200 NP.IR = BIT7 s INTERRUPT REQUEST (0-1 TRANSITION) 

307 000100 NP.OUT = BIT6 ;TAPE DATA DIRECTION OUT (0= IN) 

308 000040 NP.LOOP = BITS TENABLE TRANSPORT LOOPBACK 

309 20 .WRP = BIT4 [WRITE CORRECT PARITY (SET=0 TO WRITE WRONG) 
s¢ 

si 3 READ STATUS MESSAGE BUFFER BIT DEFINITIONS 

313 : 

314 000200 S2.DIM = BIT7 :WORD #9 BYTE 2 DATA IN MISS 

315 000100 ~ILW = BIT6 : ILW 

316 0 $2. OUTRDY = BITS ; OUT RDY H 

317 000020 S2. INRDY = BIT4 : IN RDY H 

318 000010 S2.ATIMR = BIT3 : TIMER A FLAG H 

319 S2.BTIMR = BI12 ; TIMER B FLAG H 

320 000003 S2.UNDEF = BIT1+B1T0 3 (UNDEF INED) 

321 100000 $1.PARIN = BIT1S :WORD #8 BYTE 1 PARIN H 

040000 $1. 12RESV = BIT14 IRESV2 

323 020000 $1. 11RESV = BIT13 : IRESV1 

$1. 1EOT = BIT12 : IEOT L 





Fiod cas cecal eras ace ks H 3 
TSV3_= GLOBAL ARE MACRO M1113 25=MAY=82 08:41 PAGE 14-5 


AS ; 
TSVOS REGISTER AND PACKET DEFINITIONS c SEQ 0033 

064000 $1. 1 IDENT = BIT11 ; IIDENT H 
002000 S1.1CER = BIT10 : ICER H 
001000 S1.1FMK = BIT9 : IFMK H 
000400 $1. IHER = B1T8 3 IHER H 
000200 SO. ISPEED = B1T7 + WORD #8 BYTE 0 ISPEED H 
000100 $0. IRDY = BIT6 : IRDY L 
00004 $0. IONL = BITS : IONL L 
00002 $0.ILDP = BIT4 : ILDP L 
000010 $0. IDBY = BIT3 : IDBY L 
000 $0. IRWD = BIT2 : IRWD L 
0000 SO. IFBY = BIT) pF IFBY L 
000001 SO.IFPT = BITO : IFPT L 
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SPECIAL MACROS AND OPDEFS. SEQ 0034 


-SBTTL SPECIAL MACROS AND OPDEFS. 






#4 
o 


ft 
zSAVE GENERAL REGS 1 TO 5 


«MACRO SAVREG 
JSR R5 ,REGSAV 


ERESEE SS 
FWN— CO OONOUESWNR— 


; MACRO TO FORCE AN ERROR 

“MACRO FORCERROR TAG,NOTSSR 
“TTF Nor LISTALL, .NLIST 

- IF B NOTSSR 

-ENDC 


WWW 
MMuMIUuIV 


TSSR(RS) ,R1 zREAD TSSR 
MOV FORCER,FORCER ;IS FORCER SET? (LEAVE C BIT ALONE) 
BNE TAG :BR IF YES 


«NLIST 

eIIF NDF LISTALL, .LIST 

LIST 

- ENDM 

: MACRO viLL Ex AN EXIT TO AVOID SECTION ITERATIONS 


T TO A LABEL IF FORCER IS NEGATIVE 
so T ora ses AND EXIT ON 1 ERROR SET 


F FORCER TO 17 
: TO FORCE O ERRORS AND ITERATIONS SET FORCER TO 1. 
“MACRO FORCEXIT TAG 


NL 
-1IF NDF LISTALL, .NLIST 
«LIST 


MOV FORCER,FORCER ;I1S FORCER NEGATIVE? 
BMI TAG :BR IF YES 


«NLIST 
-IIF NDF LISTALL, .LIST 
«LIST 
— 
; MACRO TO INCREMENT ERROR COUNTS 
“MACRO NEXT. ERRNO 
z3e11F NDF LISTALL, .NLIST 
ERRNO=ERRNO+1 
33¢-11F NDF LISTALL, .LIST 
«LIST 


- ENDM 


ge 
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SPECIAL MACROS AND OPDEFS. SEQ 0035 
397 :MACRO TO PERFORM XOR 
398 :- 
399 
400 «MACRO XOR A.B 
401 MOV A,=(SP) 
402 BIC 8. (SP) 
403 BIC A.B 
04 BIS (§P)+,8 
405 .ENDM 
407 000000 EN=0 INITIALIZE ERROR NUMBER 
408 “SBTTL FORCER = FORCE ERROR FLAG 
a1 
411 ; THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER 
412 3 TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 
414 . 
415 002174 000000 FORCER:: 0 FORCE TYPE ALL HARD ERRORS (THE ONES CALLED ~ 
416 : = BY THE MACRO “*IFERROR'). AN ERROR NEED KOT 
417 : = EXIST, JUST ASSUME AND TYPE THE MESSAGE. 
419 
420 





461 002630 


TSV3_= GLOBAL AREAS 
GLOBAL DATA SECTION 


MACRO M1113 25-MAY-82 08:41 PAGE 16 


-SBTTL GLOBAL DATA SECTION 


7 THE GLOBAL DATA 3 Si CONTAINS DATA THAT ARE USED 


3IN MORE 


THAN ONE T 


THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
; SINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P=TABLE. 


EPRTSw:: WORD 
UNITN:: WORD 
VP:: ~ WORD 
CSRADDR:: WORD 
IVEC:: WORD 
IPRI:: WORD 
TSTCNT:: WORD 
OOPCNT:: WORD 
DEVCNT:: WORD 
FATFLG:: ~ WORD 
INTRECV:: WORD 
XTFEA:: WORD 
BENBSW: : WORD 
EXPD:: WORD 
RECV:: WORD 
ERRHI:: WORD 
ERRLO:: WORD 
RAMDATA:: -BLKW 
AMSIZ:: - WORD 
RCVHIADD: WORD 
RCVLOADD: WORD 
Ts: WORD 
ATA:: - WORD 
TSTFLAG WORD 
TSTPTR: WORD 
MNO: WORD 
EXPMSG -BLKB 
RECMSG -BLKB 
TMPBFR -BLKB 


~m 


Soooooo VMUOCOCOCOO 
Ds 


Sooo zCoooeseo 
= 


zzeceo 
r 


@ 

oo 

- Oo 
o 





sPRINT SWITCH 
[UNIT # UNDER 194g 

QUICK VERIFY FLAG. 

ADDRESS OF csr FOR CURRENT DEVICE 

i INTERRUPT VECTOR 

2 INTERRUPT PRIORITY 

NUMBER OF TESTS RUN IN THIS PASS 
sREMAINING ITERATION COUNT FOR TEST 
NUMBER OF DEVICE UNDER TEST 

sSET IF FATAL ERROR IS DETECTED IN TEST 
SET IF TAPE INT ES SOF TUAR RECEIVED 


TCH SW O=OF F ;1=0N 

SEXPECTED RAM DATA FOR PRAMPKT ROUTINE 
ron $A 4 RAM DATA FOR PRAMPKT ROUTINE 
HIGH ADDRESS MEMORY ERROR 

st ADDRESS MEMORY ERROR 

DATA ny +: gf RAM PACKET OR MESSAGE BUF AREA 
RAM DATA SIZE FOR PRAMPKT ROUTINE 
$RECEIVED BUFFER HIGH ADDRESS 

RECEIVED ath LOW ADDRESS 
iTEST COUNT PATTERN 
sTEST 
sTEST FLAG WORD 

i TSTBLK POINTER 

RINT ROUTINE TEMP 

ENPECTED MESSAGE BUFFER DATA 
:RECEIVED MESSAGE BUFFER DATA 

2 TEMPORARY STORAGE FOR PRINT 


SEQ 0036 


L 3 
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| TSTBLK = TEST DATA TABLE 
i 
Pe -SBTTL TSTBLK = TEST DATA TABLE 
ro 14 :THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 
rs 4 3 IN SEQUENCE THE DATA IS: 
471 3 ALL ZEROS 
472 3 ALL ONES 
473 ; WALKING ONES 
474 ; WALKING ZEROS 
ri 3 ALTERNATING ONES AND ZEROS 
477 = 
478 
479 002750 TSTBLK:: 
480 002750 000000 eWORD 0 zsALL ZEROS 
481 002752 177777 eWORD 177777 ALL ONES 
482 002754 000001 eWORD BITO ;DATA FOR WALKING ONES 
483 002756 000002 -WORD BIT1 
84 002760 000004 WORD IT 
485 002762 000010 eWORD BIT 
86 002764 000020 WORD 1T4 
487 002766 000040 eWORD BITS 
88 002770 000100 eWORD BIT6 
489 002772 000200 eWORD BIT7 
002 0004 -WORD BIT8 
491 002776 001000 eWORD BIT9 
002000 -WORD BI1T10 
493 003002 004000 eWORD BIT11 
494 003004 010000 eWORD BITI2 
020000 eWORD BIT13 
96 003010 040000 eWORD BIT14 
497 003012 100000 eWORD BIT1 
98 003014 177776 -WORD “*CBITO DATA FOR WALKING ZEROS 
499 003016 177775 eWORD “*CBIT1 
00 20 177773 eWORD “*CBIT 
501 003022 177767 eWORD “CBIT 
502 003024 177737 eWORD “*CBITS 
503 003026 177677 eWORD “CBIT 
3030 177577 eWORD “CBIT 
505 003032 177377 eWORD “*CBIT8 
3034 176777 eWORD “*CBIT9 
507 003036 175777 eWORD “*CBIT10 
508 003040 173777 eWORD “*CBIT11 
509 003042 167777 - WORD oreinis 
510 003044 157777 eWORD “*CBIT1 
511 003046 137777 eWORD “*CBIT14 
ai¢ 003050 077777 eWORD “*CBIT15 
513 003052 125252 eWORD 125 3 ZALTERNATING ONES, ZERO 
514 003054 052525 . 05252 ALTERNATING ONES, TERO OPPOSITE FROM ABOVE 
515 003056 TBLEND==. 


SEQ 0037 
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GLOBAL ENVIRONMENT STORAGE SEQ 0038 
517 .SBTTL GLOBAL ENVIRONMENT STORAGE 
319 ‘STORAGE FOR DEVICE REGISTERS 
521 003056 000000 100000 000000 BuMMY: 0,100000,0,0 | ;DUMMY DEVICE REGISTERS... 
522 003066 000000 000000 000000 0.0,0,0,0,0,0,0 
323 teeeFOR MULTI-UNIT CHECKOUT. 
525 
526 003106 000900 DUFLG:: «WORD 0 :“DROPPED UNIT’ FLAG. i 
527 TINHIBITS CODE IN “'CLEAN-UP**. 
328 003110 000000 NODEV: : .WORD 0 sFLAG TO SAY NO DEVICE. 
530 003112 000000 TEMP1: : .WORD 0 :SOME TEMP LOCATIONS. 
531 003114 000000 TEMP2: : “WORD 0 
532 003116 000000 XXCOMM: : ~ WORD 0 iter COMM BLOCK POINTER. 
533 003120 000000 REE:: “WORD 0 FREE MEMORY ADDRESS... 
534 003122 000000 RESIZ “WORD 0 ST AND SIZE (IN WORDS). 
535 003124 000000 FREEHI: .WORD 0 ZLAST wor” IN FREE SPACE 
536 003126 000000 TFLG: .WORD 0 KT11, MEM AVAIL FLAG = 
537 t= .WORD 0 = <24K OR NO KT - 
538 t= NZ = >24K AND K 
539 003130 000000 KTENABLE: : .WORD 0 ‘SET BY TEST ROUTINES TO FLAG >28K UNDER TEST 
540 003132 000000 NXMFLG: : “WORD 0 SSET IF WE CAN TEST CLEARED OTHERWISE 
541 003134 000000 NXMLO:: -WORD 0 NX LO ADDRESS BITS 
542 003136 000000 NXMHI : s 0 [NXM_HI ADDRESS BITS FOR DAL'S 16-21 
543 003140 000000 T23A:: WORD 0 £11/23A FLAG 
544 003142 000000 1238: “WORD 0 :11/23B FLAG 
545 003144 000000 T3BFLG 0 :TEST 38 FLAG *O 
546 003146 002000 PST32W e WORD 2000 352M BLOCK ADDRESS FOR 32K START 
547 003150 000000 SIFLAG ;WORD 0 
548 003152 000000 BADDAT ’ 0 CTUAL DAT 
549 003154 000000 GDDAT: “WORD 0 SOHPECTED DATA 
550 003156 000000 LOOPFL “WORD 0 
551 003160 CTAB : CONE IGURAT ION TABLES. 
552 003160 000000 CTABM .WORD 0 [CONFIG WORK. 
553 003162 “WORD 0 
554 003164 000000 “WORD 0 
555 003166 000000 “WORD 0 
556 003170 177777 “WORD =1 ZEND OF MEM TABLE. 
557 003172 CTABE:: 
358 ZERROR STATISTICS TABLE (1 WORD PER UNIT), 64 UNITS MAX: 
560 ; 0 = UNIT NOT TESTED 
561 ; 100 = UNIT ONLINE, NO ERRORS 
562 : 1OXXXX = UNIT ONLINE, ENCOUNTERED XXXX ERROR 
563 ; 160000 = UNIT DROPPED, NON-EXISTENT DEVICE REGISTER 
564 ; 160001 = UNIT DROPPED, NOT IDLE A 
365 : 14XXXX = UNIT DROPPED; ENCOUNTERED ame TERRORS 
567 003172 ERTABL: .BLKW 64. 
568 003372 000000 ERTABE : “WORD 0 


569 
570 003374 000000 SKIPT: .WORD 0 31=SKIP SUBTEST O=NO SKIP OF SUBTEST 








sn : " 
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GLOBAL TEXT MESSAGES SEQ 0039 
572 : .SBTTL GLOBAL TEXT MESSAGES 
Z + 

574 : THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
575 3 MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
576 : MORE THAN ONE TEST. 
578 
579 
580 
581 i+ 
ob¢ sNAMES OF DEVICES SUPPORTED 
584 
585 003376 DEVTYP <TSVOS> 

003376 LSDVTYP:: 

003376 124 123 126 -ASCIZ /TSVOS/ 

SEVEN 

586 
588 3¢ 
589 :TEST DESCRIPTION 
591 003404 cael DESCRIPT <*** TSVOS LOGIC DIAGNOSTIC = REPLACE M7196 IF ERROR *#**> 

003404 052 052 052 -ASCIZ /xeee TSVOS LOGIC DIAGNOSTIC = REPLACE M7196 IF ERROR *###/ 
612 
613 
614 
615 3+ 
218 :BIT TO ASCII CONVERSION FOR TSSR REGISTER 
618 : 
619 003476 003536 003541 003545 TSSRBIT:: «WORD 1$,2$,3$.4$,5$.6$.7$,8$ 
620 003516 003577 003603 003607 «WORD 9$.10$,112,12$.13$, 14$, 15S, 16$ 
621 003536 12 103 000 1$: sASCIZ ‘sc* 
622 003541 10 111 105 2$: “ASCIZ "BIE* 
623 003545 12 103 105 3$: “ASCIZ °SCE* 
624 003551 122 115 122 4$: SASCIZ "RMR* 

003555 116 130 115 5$: SASCIZ "NXM* 
626 003561 116 102 101 6$: SASCIZ "NBA 
627 003565 102 111 124 7$: -ASCIZ ‘BIT9" 
628 003572 102 111 124 8$: -ASCIZ °BIT8" 
629 003577 123 123 122 9$: <ASCIZ "SSR* 
630 0036 117 106 114 10$: <ASCIZ ‘OFL® 
631 003607 102 111 124 11$: <cASCIZ ‘BITS* 
632 00361 102 111 124 12s: “ASCIZ BITS" 
633 003621 102 111 124 13$: <cASCIZ ‘BIT3* 
634 0036 102 111 | 126 14$:  <lASCI2 ‘BIT2* 
635 003633 102 111 124 15$:  <ASCIZ ‘BITI 
636 00 102 111 124 16$: -ASCI2 "BITO" 
638 003646 124 123 123 SFIERR: .ASCIZ ‘TSSR ERROR AFTER SOFT INIT 
639 003701 124 123 123 SFHERR: .ASCIZ ‘TSSR ERROR AFTER BUS RESET’ 
640 003734 040 040 116 NXR:  .ASCIZ / NON-EXISTANT DEVICE REGISTER/ 
641 003773 045 101 040 WXRX: .ASCIZ /%A ADDRESS: %06/ 
642 004014 045 101 040 TSSX: .ASCII /ZA TSBA,TSSR EXP"D: %O6%A, %06%N/ 
643 004054 045 101 040 -ASCIZ /%A TSBA.TSSR REC'D: %06%A.%06/ 
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3 
255 
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659 004637 
660 
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/ 
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/ 
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/ 
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A 


XP"D: 
7%NXA EXP'D: Z06KA, ZOGENZA REC'D: L0%A, 
/%A REG(Y) WRITTEN (10: Z06%A REG( 
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<A/ 
UNEXPECTED INTERRUPT/ 
INTERRUPT EXPECTED, NOT RECEIVED/ 


/4N 
NO INTERRUPT WAS GENERATED/ 
INTERRUPT FAULT/ 

CPU PC: 063A TSBA: %06/ 
 BOSeINIT DIDN'T INITIALIZE CONTROLLER/ 
'SOFT=INIT' DIDN'T INITIALIZE THE DPU/ 
“BUS-RESET" DIDN'T INITIALIZE THE DPU/ 


/ 
EX ZC6ZA, REC'D: %06/ 


"RAM Con Ral pet Match Packet S Sent’ 
FG. MASTER/ 


ASC 
/ CONFIG DOESN’ r *MATCH M 
"WRITE CHARACTERISTICS Failed’ 


*TSSR Incorrect After WRITE Command, More Bits Set Than SSR‘ 
genene. More Bite Set Than SSR’ 
TRANSPORT etc.’ 

a FAILED‘ 


*TSSR Incorrect After READ C 
"FATAL ERROR IN SUBTEST = CHECK TAPE,CABLES 
"ERROR IN SUBTEST = WRITE DATA RETRY 4h ue 
*ZNZA seee* NO NXM ADDRESS--CANNOT TEST TIMEOUT. 
"ZNZA teeennenanananane 11/23A 
"ZENZA teeeeeneneanenane 11/238 SYSTEM teennenneenenaeeety’ 


%06/ 
R) READ; EXP® D: Z06ZA, REC'D: 


SYSTEM Bane BL on Paar oe 


t-te sn ~enieeutsnane institute 


| C 4 
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GLOBAL ERROR REPORT SECTION SEQ 0041 
$73 ~SB8TTL GLOBAL ERROR REPORT SECTION 
677 *s 
678 ; THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX 
679 ; CALLS THAT ARE USED IN MORE THAN ONE TEST. 
on) : ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 
682 
683 005732 BGNMSG NXRERR sNON-EXISTANT DEVICE REGISTER. 
005732 NXRERR: : 
684 00573 PRINTX #NXRX,NODEV z:NODEV = NEXM ADDRESS. 
005732 013746 003110 MOV NODEV,=(SP) 
005736 012746 003773 MOV #NXRX ,=(SP) 
005742 012746 000002 MOV #2,-(SP) 
005746 010600 MOV SP,RO 
005750 104415 TRAP CSPNTX 
005752 062706 000006 ADD #6,SP 
685 005756 004737 005764 JSR PC EXTEND 3 PRINT EXTENSION IF REQUIRED. 
686 005762 ENDMSG 
095762 L10002: 
005762 104423 TRAP CSMSG 
687 
: 
690 ; THIS ROUTINE APPENDS A UNIQUE EXTENSION (it REQUIRED) 
pa TO ANY OF THE ABOVE ERROR SIGNATURES. 
635 005764 005727 EXTEND: TST (PC)+ 
694 005766 000000 EXTA: 0 : 0 = NO EXTENSION. 
695 005770 001402 BEQ 1$ 
696 005772 004777 177770 JSR PC,@EXTA : APPEND EXTENSION TEXT. 
697 005776 1$: PRINTX #NULCR 3 PRINT A BLANK LINE 
005776 012746 004524 MOV #NULCR,=(SP) 
002 012746 000901 MOV #1,-(SP) 
006006 010600 MOV SP,RO 
006010 104415 TRAP CSPNTX 


006012 062706 000004 ADD #4 ,SP 
698 006016 000207 RTS PC 


TSV3_= GLOBAL AREAS 
PRITSSR = PRINT TSSR CONTENTS 


6 
006030 012746 006411 
006034 aigcae 000002 


006040 010600 
006042 104414 
006044 062706 000006 
723 006050 010400 
724 006052 004737 016034 
725 006056 103410 
726 006060 
012746 006631 
006 012746 000001 
006070 010600 
006072 104415 
006074 062706 000004 
727 006100 010403 
728 006102 042703 001476 
729 006106 001434 
730 006110 012702 002630 
731 006114 012701 003476 
732 006120 005703 
733 006122 001413 
734 006124 000241 
735 006126 006103 
736 006130 103006 
737 006132 011100 
738 006134 112022 
739 006136 001376 
740 006140 112762 000054 
741 006146 005721 
by 006150 000763 
743 006152 105042 
744 006154 
006154 012746 002630 
006160 012746 006602 





177777 





tee - — 


Dd 4 
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«SBTTL PRITSSR = PRINT TSSR CONTENTS 
7+ 


ROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF 
sTHE TSSR REGISTER, THIS ROUTINE IS NORMALLY CALLED ONLY 
sBY A MESSAGE PRINTING ROUTINE 


INPUTS: 
: R1 CONTENTS OF TSSR 
S SUBORDINATE ROUTINES: 
: CHKAMB CHECK FOR AMBIGUOUS CONTENTS 
PRITSSR: 
SAVREG ZSAVE GENERAL REGISTERS 
MOV R1,R4 [SAVE THE TSSR CONTENTS 
PRINTB #TSSRFOR,R4 SPRINT THE CONTENTS OF TSSR 
MOV R4,=(SP) 
MOV #TSSRFOR,-(SP) 
MOV #2,-(SP) 
MOv SP,RO 
TRAP _— CSPNT 
ADD #6,SP 
MOV R4.RO 3GET TSSR BACK FOR CHKAMB 
JSR PC; CHKAMB TARE CONTENTS AMBIGUOUS ? 
BCS 5 [BRANCH IF NOT 
PRINTX #AMBTSS 7SHOW CONTENTS ARE AMBIGUOUS 
V #AMBTSSR,-(SP) 
MOV #1,-(SP) 
V SP,RO 
TRAP — CSPNTX 
ADD #4,SP 
5$: MOV R4_R3 :CONTENTS OF TSSR 
BIC #HIADDR! FATERR! TERCLS, R3 
BEQ 20$ 3NO BITS ARE SE 
MOV ATMPBFR,R2 :TE ASCII BUFFE 
MOV #TSSRBIT,R1 ZASCII EQUIVALENT OF BI 
10$: TST R3 ZREMAINING BITS TO CONVERT 
BEQ 15$ ZBRANCH WHEN ALL ARE D 
CLC =CLEAR CARRY FOR SHIFT 
ROL R3 ZSHIFT NEXT BIT TO CARRY 
BCC 13$ ZBRANCH IF BIT NOT SET 
MOV (R1) RO ZPOINTER TO BIT DEFINITION 
11$:  MOVB (RO)+,(R2)+ ZMOVE ASCIZ TO BUFFER 
BNE “MOVE ALL BITS 
MOVB = #*. ,=1(R2) SINSERT A TO TERMINATE 
13$: TST (Ri}+ 3POINT TO NEXT DESCRIPTION 
BR 10$ :GET THE REMAINING BITS 
15$: ERMINAT I 


CLRB =(R2) sv E THE LINE 

PRINTX #TSSDEF ,@TMPBFR ;PRINT THE BIT DEFINITIONS 
MOV #TMPBFR,=(SP) 

MOV #TSSDEF ,=(SP) 


pi CLeAn ALL MULTIPLE BIT FIELDS 


SEQ 0042 


788 
789 006672 


TSV3_= GLOBAL AREAS 
PRITSSR = PRINT 


012746 
010600 
104415 
062706 
010403 
042703 
016503 


006203 
006203 
006203 


104415 
062706 
013703 

346 
012746 
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TSSR CONTENTS 


000002 
000006 


177761 
006672 


006472 
000002 


000006 
177717 


007232 
006533 
000002 
000006 
176377 


006431 
000002 


000006 
002176 


RRRRRRR 
MMIII 


006735 006763 


20$: 


25$: 


30$: 


TCOCOD: 


-EVEN 
- WORD 


a. =(SP) 
P,RO 


CSPNTX 
#6,SP 


$ 


#*CTERCLS,R3 
TCOCOD(R3) ,R3 
aT R3 


R4, 
#*CFATERR,R3 
25$ 


R3 
R3 


R3 
TSFCOD(R3) ,R3 
aT R3 


#6, 
#°CHIADDR,R4 
30$ 
WTEXASC,R4 
R4,=(SP 
ATEXASC,=(SP) 
#2,-(SP) 
SP.RO 

CSPNTX 

#6, SP 
EPRTSW,R2 

R3 


R3,-(SP) 
#1.=(SP) 
CSPNTX 
#4,SP 
PC 


NNN 
co 
ae 
zz 


:GET THE TSSR CONTENTS 


RMINATION 
RMINATION CODE MEANING 
PRINT THE TERMINATION CODE 


3TSSR_ CONTENTS AGAIN 
CLEAR ALL BUT FATAL TERMINATION 
sDON'T PRINT IF ZERO 


sALINE TERMINATION CODE FOR INDEX 
GET THE FATAL TERMINATION CODE 
PRINT THE FATAL TERMINATION CODE 


sCLEAR ALL BUT esreeee ADDRESS 
[DON'T PRINT IF 
PRINT THE EXTENDED ADDRESS BITS 


sPRINT MEAASGE BUFFER ADDRESS 


PRINT PROPER MESSAGE 


RETURN TO CALLER 


"ZENZA eee *REPLACE W7196 eens" 
*ZNZA TSSR 06° 


fo Subended Address Bits = %06' 
Termination Class Code = 2ZT° 

Fatal Termination Class Code = 2%T° 
*"ZNZA TSSR Bits Set: 

"ZNZA TSSR Contents Are Ambiguous ° 


1$,2$,3$,.4$,5$,6$.7$,8$ 


SEQ 0043 





799 

800 007232 
801 007242 
802 007276 
803 007307 
804 007353 


TSV3_= GLOBAL AREAS 
PRITSSR = PRINT TSSR CONTENTS 
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— 3 od od 
PULSAR 
"AUIS I 


od as a 
AALS LNA 
FSVWWwOoror 


wr 
SG OF at 


5$: 
6$: 
7$: 
8$: 


TSFCOD: .wWO 
1$: 


2$: 
3$: 
4$: 


AnMnnnnm 
OOOO 
te bn es ee es ee 
NNN NINN 


SEQ 0044 


"Normal Termination’ 

‘Termination Condition’ 

"Tape Status Alert’ 

"Function Reject’ 

*Recoverable Error = Tape Position One Record Down’ 
*"Recoverable Error = Tape Was Not Moved' 
*Unrecoverable Error' 

"Fatal Controller Error’ 


1$,2$,3$,4$ . 

"Internal Diagnostic Failure’ 
*Reserved' ‘ 

"Bus Interface or Sanity Check Error’ 
"Reserved' 





a 


'OES at tee aS G 4 
| TSV3 = GLOBAL AREAS MACRO M1113 25-MAY-82 08: at PAGE 23 


eASCIZ 
E 





PRIPKT = PRINT THE ADDRESS/CONTENTS OF COMMAND PA SEQ 0045 
807 .SBTTL PRIPKT = PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 
809 3+ 
810 ZTHIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET. 
gi) [THIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 
lz : INPUT: 

815 : RO NUMBER OF WORDS IN PACKET 
816 : R3 HIGH ORDER COMMAND PACKET ADDRESS 
gi” ; RG ADDRESS OF COMMAND PACKET 
819 : NOTE: R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 
821 
822 007364 PRIPKT:: 
823 007364 SAVREG ZSAVE THE REGISTERS 
824 007370 010005 MOV RO,RS SSAVE NO. OF WORDS IN, {PACKET 
825 007372 005737 003130 TST KTENABLE ABOVE 28k UNDER TEST 
826 007376 001001 BNE 10$ [BR IF YES 
827 007400 005003 CLR R3 7SET HIGH ORDER ADDRESS TO 0 
828 007402 010301 10$: MOV R3,R1 :COPY HIGH ORDER ADDRESS 
0074046 010400 MOV R4.RO *GET LOWER ADDRESS 
830 007406 0061 ROL RO ‘SHIFT BIT 15 INTO C BIT 
831 007410 006101 ROL R1 [AND INTO HIGH ORDER. 
832 007412 PRINTB #PKTADD,R1,R4  :PRINT PACKET ADDRESS 
007412 010446 MOV R4,-(SP) 
007414 010146 MOV R1,-(SP) 
007416 012746 007550 MOV #PKTADD,=(SP) 
007422 012746 000003 MOV #3,-(SP) 
007426 £10600 MOV SP,RO 
007430 104414 TRAP C$PNTB 
007432 062706 000010 ADD #10,SP 
833 007436 010300 15$: MOV R3,R0 :GET HIGH ORDER ADDRESS 
834 007440 001404 BEQ 208 F NOT ABOVE 28K. 
835 007442 010401 MOV R4,R1 GET bow ORDER ADDRESS 
007444 004737 017306 JSR PC. SETMAP ZSETUP PAR6 MAPPING FOR 18 BIT ADDRESS 
837 007450 010004 MOV 0,R4 GET RETURNED PAR6 ADDRESS BIAS 
838 007452 005001 20$: CLR TSAVE WORD 
839 007454 012402 25$: MOV +,R2 [GET PACKET CONTENTS 
840 007456 PRINTS #PKTFRM,R1,R2 sPRINT THE DATA 
007456 010246 MOV (SPS 
007460 010146 MOV R1,=(SP) 
7462 012746 007512 MOV #PKTFRM,-(SP) 
007466 012746 003 MOV #3,-(SP) 
007472 010600 MOV SP,RO 
007474 104414 TRAP  C$PNTB 
007476 062706 000010 ADD #10,SP 
841 007502 005201 INC 1 ZNEXT WORD NUMBER 
842 007504 020105 CMP R1,R5 SDONE ALL PACKET WORDS? 
843 007506 002762 BLT 258 SLOOP TILL ALL DONE 
B44 007510 207 RTS PC RETURN 
846 007512 045 116 045 PKTFRM: .ASCIZ ‘ZNZA Packet Word #ZD1ZA = 206° 
847 007550 045 116 045 PKTADD: *"ZNZA Packet Address = %01%05° 














TSV3 = GLOBAL AREAS 
PRIBXOR = PRINT EXPD, RECV AND XOR BYTE 


851 - SBTTL 
85 





045 XORBFOR: 


H 4 
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SEQ 0046 
PRIBXOR = PRINT EXPD, RECV AND XOR BYTE 


85 ‘+ 
854 
855 SPRINT EXPECTED DATA, RECEIVED DATA, AND XCR OF THE DATA BYTE 
856 3THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 
B48 : INPUTS: 
859 : 
860 : R1 RECEIVED DATA 
861 : R2 EXPECTED DATA 
bbe sOUTPUT: 
Bes : RO XOR OF EXPECTED/RECEIVED DATA 
868 
869 007606 PRIBXOR: : 
870 007606 SAVREG :SAVE THE REGISTERS 
871 007612 010203 V R2,R3 EXPECT ED DAT 
872 007614 XOR R1.R3 FORM THE EXCLUSIVE OR 
873 007624 012700 177400 MOV #°C<377>,R0 “BYTE MASK 
874 007630 040001 BIC RO,R1 :SAVE LOW BYTE RECV 
875 007632 040002 BIC RO,R2 [SAVE LOW BYTE EXPD 
876 007634 040003 BIC RO,R3 “SAVE LOW BYTE X 
877 007636 PRINTB #XORBFOR,R2,R1,R3 ;PRINT THE MESSAGE 
7636 010346 R3,-(SP) 

007640 010146 MOV R1,-(SP) 

007642 010246 MOV R2,-(SP) 

007644 012746 007670 MOV #XORBFOR,-(SP) 

007650 012746 000004 MOV #4,-(SP) 

007654 010600 MOV SP,RO 

007656 104414 TRAP  C$PNTB 

7660 062706 000012 ADD #12,SP 

878 007664 010300 MOV R3,RO zRO HAS XOR ON RETURN 
879 007666 RTS PC SRETURN TO CALLER 


eASCIZ ‘ZNZA EXPD: Z03%A RECV: %03%A XOR: 203° 


re ne a ee e+ 


7 a 












TSV3_= GLOBAL AREAS 


885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 007736 
904 007736 
905 007742 010203 
906 007744 
907 007754 
007754 010346 
007756 010146 
007760 010246 
7762 012746 
7766 01274 
007772 0106 
007774 10441 
007776 062706 
908 010002 010300 
10004 000207 
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PRIXOR = PRINT EXPD, RECV AND XOR 


-SBTTL PRIXOR 


7+ 


SPRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE T 
s THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 


INPUTS: 
: R1 RECEIVED DATA 
: R2 EXPECTED DATA 
sOUTPUT: 
: RO XOR OF EXPECTED/RECEIVED DATA 
PRIXOR:: 
SAVREG ZSAVE THE REGISTERS 
OV R2,R3 sEXPECT TED DAT 
XOR R1_R3 :FORM THE EXCLUSIVE OR 
PRINT® #XORFOR, sR2, R1,R3_:PRINT THE MESSAGE 
MOV R3,-(SP) 
MOV R1,-(SP) 
MOV R2,-(SP) 
010006 MOV #XORFOR -(SP) 
000004 MOV #4,-(SP) 
MOV : 
TRAP  C$PNTB 
000012 ADD #12,SP 
MOV R3,RO zRO HAS XOR ON RETURN 
RTS PC sRETURN TO CALLER 


045 XORFOR: 


- PRINT EXPD, RECV AND XOR 


yy *ZNZA EXPD: %06%A RECV: %06%A XOR: %06' 


SEQ 0047 


J 4 
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IEQU = PRINT BIT NUMBERS AS ASCII EQUIVALENT SEQ 0048 
gis .SBTTL PRIEQU = PRINT BIT NUMBERS AS ASCII EQUIVALENT 
319 
918 SROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
319 [THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 
921 INPUTS: 
922 : 
923 : RO OCTAL VALUE TO CONVERT 
924 : R1 TABLE OF POINTERS TO ASCII EQUIVALENT 
926 - 
927 
928 010054 PRIEQU: 
929 010054 SAVREG :SAVE THE REGISTERS 
930 010060 000207 RTS PC [RETURN TO CALLER 
932 
933 
934 
935 .SBTTL PRIRAM = PRINT RAM ADDRESS 
:¢ 
937 
938 [PRINT CONTROLLER RAM ADDRESS. 
959 ;THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 
941 INPUTS: 
942 3 
943 : RG RAM ADDRESS 
944 :_ 
945 i: 
946 010062 PRIRAM: 
947 010062 SAVREG ;SAVE R1-R5 UNTIL NEXT RETURN 
948 010066 PRINTB #RAMFOR,R4 SPRINT RAM ADDRESS IN ERROR 
010066 01 MOV R4,=(SP5 
010070 012746 010112 MOV #RAMF OR, = (SP) 
010074 012746 000002 MOV #2,-(SP) 
010100 01 MOV : 
010102 104414 TRAP _— CSPNTB 
010104 062706 000006 ADD #6,SP 
949 010110 000207 RTS PC RETURN 
951 010112 045 116 045 RAMFOR: -ASCI7 "ZNZA CONTROLLER RAM ADDRESS = %06° 
o58 3 
955 : .SBTTL PRIADD = PRINT MEMORY ERROR ADDRESS 
957 ; 
958 SPRINT MEMORY ADDRESS 
959 [THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 
961 : IMPLICIT INPUTS 
% : ERRH] = HIGH ORDER ADDRESS 
964 : ERRLO = LOW ORDER ADDRESS 


T 
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PRIADD = PRINT MEMORY ERROR ADDRESS SEQ 0049 
965 ; 
966 3° 
967 010154 PRIADD: 
968 010154 SAVREG sSAVE R1=-R5 UNTIL NEXT RETURN 
969 010160 013700 002234 MOV ERRHI,RO :GET HIGH ADDRESSS 
970 010164 013701 002236 MOV ERRLO,R1 [GET LOW ADDRESS 
971 010170 010102 MOV R1,R2 :COPY LOW ADDRESS 
97 010172 006101 ROL R1 ‘SHIFT BIT 15 TO C BIT 
973 010174 006100 ROL RO Suir INTO HIGH ORDER 
974 010176 PRINTS #PRIAO. RO, R2 PRINT MEMORY ADDRESS IN ERROR 
010176 010246 MOV Re »=( 
010200 010046 MOV RU.= 3) 
010202 012746 010224 MOV SPRIAO. -(SP) 
10206 012746 000003 MOV #3.=(SP) 
010212 010600 MOV SP,RO 
010214 104414 TRAP C$PNTB 
010216 062706 000010 ADD #10,SP 
975 010222 000207 RTS PC RETURN 
977 010224 045 116 045 PRIAO: .ASCIZ ‘%NZA MEMORY ERROR ADDRESS = %01%05° 
978 EVEN 
980 
981 .SBTTL PRITADD = PRINT MEMORY TEST ADDRESS 
‘s 
983 
984 [PRINT MEMORY ADDRESS 
985 ;THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 
987 : IMPLICIT INPUTS 
989 ; ERRHI = HIGH ORDER ADDRESS 
990 : ERRLO = LOW ORDER ADDRESS 
992 - 
993 010270 PRITADD: 
994 010270 SAVREG ZSAVE R1-RS UNTIL NEXT RETURN 
995 010274 013702 002234 MOV ERRHI,R2 :GET HIGH ADDRESSS 
996 010300 013701 002236 MOV ERRLO,R1 2GET Ow ADD 
997 :MOV —s- R1,R2 ‘Copy’ LOW ADDRESS 
998 sROL R1 * SHIFT BIT 15 TO . BIT 
999 sROL RO zsuie INTO HIGH ORDER 
1000 010304 PRINTB #PRITO,R1 PRINT MEMORY ADDRESS LOW IN ERROR 
010304 010146 MOV R1,=(SP) 
010306 012746 010352 MOV #PRITO,-(SP) 
010312 012746 2 MOV #2,-(S 
010316 010600 MOV 
010 104414 TRAP  C$PNTB 
010322 062706 000006 ADD #6,SP 
1001 010326 PRINT@ #PRIT1.R2 ;PRINT MEMORY ADDRESS HIGH IN ERROR 
010326 010246 MOV R2,=(SP) 
010330 O12 46 010415 MOV #PRIT1,=(SP) 
010334 012746 000002 MOV #2,-(SP) 
010340 010600 SP-RO 
010342 104414 TRAP  C$PNTB 
010344 062706 000006 AD 46,SP 
1002 010350 000207 RTS ¢ RETURN 
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PRITADD = PRINT MEMORY TEST ADDRESS 


1003 

1004 010352 045 116 045 PRITO: .ASCIZ ‘©%NZA MEMORY TEST ADDRESS LOW = %06' 
1005 010415 045 116 045 PRIT1: .ASCIZ '/N%A MEMORY TEST ADDRESS HIGH = %06' 
1006 ~EVEN 

1007 

1008 

1009 


SEQ 0050 





TSV3_= GLOBAL AREAS 
SPACE 


a 


1040 


Ssessassassasssssssss 
EBLALAPLAGALERERRERE 


& 


scs 
a 
Sonn 

INN 
WUNN 


SESSSE3s w 
EORSAVS 
ES=8 
MmMMONSS 
Beassheaes 


oooeo 
—3 n= 


raw 
Cry 
33 
Boe 


So 
= 
NN 


eB ke a a) a a dd at 
La) 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


&* 
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000764 010650 
140010 010640 


010642 


100000 
010642 
000400 
010640 
000000 


016240 


000250 
002116 
177772 





= SPACE RECORDS (FORWARD AND REVERSE) COMMAN 
~SBTTL SPACE = SPACE RECORDS (FORWARD AND REVERSE) COMMAND 


3+ 


SROUTINE TO ISSUE A SPACE RECORDS 
[COMMAND (FORWARD OR REVERSE) 


INPUT: 
R3 NUMBER OF RECORDS TO BE SPACED OVER 
BIT15 CONTROLS DIRECTION 
BIT15 = 0 IS" FORWARD 
BIT15 = 1 IS REVERSE 
RS FIRST DEVICE UNIBUS ADDRESS 
REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 
OUTPUT: 


CARRY SET = SPACE RECORDS COMMAND OK 
CLR = SPACE RECORDS FAILED 


RO THE CONTENTS OF R4 IS MOVED TO RO 


IMPLICIT OUTPUT: 
TAPE HAS BEEN MOVED 
SIDE EFFECTS: 


SAVREG ZSAVE THE GENERAL REGISTERS 
MOV #500. ,SDELAY [SET UP DELA 
MOV #140010, 80$ [SET UP COMMAND 
TST R3 :CHECK FOR DIRECTI 
BMI 5$ [BR, IF REVERSE INDICATED 
MOV R3,90$ [LOAD 
BR 0 [G0 DO COMMAND 
5$: BIC #81715 .R3 [CLEAR DIRECTION BIT 
MOV 3 UP NUMBER OF 
BIS #3178,80$ TSET REVERSE BIT IN C 
10$: MOV #80$,R4 : 
MOV R4, TSDB(RS) 3S 
15$: JSR PC .WAITF WAIT FOR SSR 
BCS 20$ 7BR, IF SSR IS SET AND Ok 
DELAY 250 ZDELAY ABOUT .25 SECONDS 
MOV #250, (PC)+ 
. WORD 
SDLY, (PC)+ 


DEC -6(PC) 
BNE 74 


. SPACE FORWARD 
ON 
UP NUMBER OF RECORDS TO SPACE 


ECORDS TO SPACE 
OMMAND PACKET 
sSET UP R4 WITH PACKET ADDRESS 

OUT COMMAND 









TSV3_= GLOBAL AREAS 
SPACE = SPACE 


010572 005367 
010576 001367 


Soooosoooo 
SoooooooO 
Seez8z85 
&- - s 

f] 

—S 

Nm 

~ 

So 

™ 


000401 
72 010632 000241 
7 34 
010400 
000207 


MACRO M1113 25-MAY=-82 08:41 
RECORDS (FORWARD AND REVERSE) COMMAND 


177756 
010650 


000002 
000200 


20$: 
25$: 


40$: 


60$: 
70$: 
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=22(PC) 


TSSR(RS),R1 
K 2 


60$ 





SEQ 0052 


sBUMP DELAY COUNTER DOWN 

BR, IF MORE DELAY 

3BR IF TROUBLE CARRY = CLEAR 
sREAD TSSR 

SET UP a" iw 

ARE THEY 

7BR, IF EQUAL = OK 


;TROUBLE EXIT 
3SET CARRY NO TROUBLE 


SCARRY CLEAR = ERROR 


sPASS PACKET ADDRESS 
RETURN 
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SPACE = SPACE RECORDS (FORWARD AND REVERSE) COMMAND  $€Q 0053 
1077 , 
1078 ; 
1079 ; 
1080 :PACKET FOR SPACE COMMAND 
1085 : 
1086 “COMMAND WORD 
1087 010640 000000 80$: . 
1088 sNUMBER OF RECORDS TO BE SPACED OVER WORD 
1089 010642 000000 $0$: . WORD 
1090 010644 000000 WORD 
1091 010646 000000 WORD 
109¢ 010650 000000 SDELAY: - WORD 0 :DELAY COUNTER 





¢ 5 
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WRTICHR = WRITE CHARACTERISTICS COMMAN SEQ 0054 
1095 -SBTTL WRTCHR = WRITE CHARACTERISTICS COMMAND 
1097 + 
1098 : 
1099 SROUTINE TO ISSUE A WRITE CHARACTERISTICS 
1100 sCOMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED 
1106 : INPUT: 
1104 : RG ADDRESS OF PACKET FROM TEST 
1105 : RS FIRST DEVICE UNIBUS ADDRESS 
1106 ; REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 
1108 OUTPUT: 
1109 ; 
1110 : RO TSSR CONTENTS 
1111 : CARRY SET = WRITE CHARACTERISTICS COMMAND OK 
1112 : CLR = WRITE CHARACTERISTICS FAILED 
1114 S IMPLICIT OUTPUT: 
1116 : MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 
1117 : SOFTWARE SWITCHES SET AS FOLLOWS: 
1118 : EXTFEA = EXTENDED FEATURES PRESENT 
1119 : BENBSW = BUFFER ENABLE SWITCH ON OR OFF 
1121 3 
1122 [SIDE EFFECTS: 
1125 3 
1124 3 
1125 := 
1126 
1127 010652 WRICHR:: 
1128 010652 SAVREG 3SAVE THE GENERAL REGISTERS 
1129 010656 005037 002226 CLR BENBSW 7CLEAR BUFFER ENABLE SWITCH 
1130 010662 005037 002224 CLR EXTFEA 3CLEAR EXTENDED FEATURES Sw SWITCH 
1131 010666 010465 000000 10$: MOV R4, TSDB(RS) ZSEND OUT COMMAND 
1132 010672 004737 016326 JSR PC. CHKTSSR ‘WAIT FOR SSR 
1133 010676 103401 BCS 20$ 7BR, IF SSR IS SET AND Ok 
1134 010700 000435 BR 60$ 7BR IF TROUBLE CARRY = CLEAR 
1135 010702 016501 000002 20$: MOV TSSR(RS),R1 TREAD TSSR 
1136 010706 012702 000200 MOV #SSR,R2 [SET UP EXPECTED 
1137 010712 032701 000100 BIT #OFL.RI 3WAS OFF LINE SET IN TSSR 
1138 010716 001402 BEQ 25$ 7BR, IF NO OFL SET 
1139 010720 052702 000100 BIS #OFL,R2 ZMAKE THEM LOOK ALIKE 
1140 010724 020201 25$: CMP Ri TARE THEY OK 
1141 010726 001401 BEQ 40$ 38R, IF EQUAL = Ok 
114@ 010730 000421 BR 608 : TROUBL T 
1143 010732 062704 000010 40$: ADD #8. RG ZPOINT TO WRT CHARA DATA PACKET 
1144 010736 011403 MOV (R45 ,R3 3GET ADDRESS OF MESSAGE BUFFER 
1145 010740 032763 000200 000012 BIT #X2.EXTF ,.XST2(R3) SEXTENDED FEATURES BIT SET? 
1146 010746 00140 BEQ 45$ :BR IF 
1167 010750 005237 002224 pith INC EXTFEA 7SET EXTENDED FEATURES Sw SWITCH 
1149 010754 032763 000100 000012 BIT #X2.BUFE ,.XST2(R3) sBUFFER ENABLE SWITCH SET 
1150 010762 00140 BEQ 5¢c$ 7BR, If SWITCH NOT SET 
1151 010764 005237 002226 INC BENBSW TSET SOFTWARE SWITCH FOR ENABLED 
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WRTCHR = WRITE CHARACTERISTICS COMMAN SEQ 0055 
13g 010770 50$: 
1153 010770 000261 SEC SET CARRY NO TROUBLE 
1154 010772 000401 BR 70$ : 
1155 010774 000241 60$: CLC sCARRY CLEAR = ERROR 
1156 010776 016500 000002 70S: MOV TSSR(RS) ,RO RETURN TSSR CONTENTS 
a 14 011002 000207 RTS PC :RETURN 
1159 
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011100 
000000 
000550 
016240 
000372 
002116 
177772 
177756 
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-SBTTL REWIND = POSITION TAPE (REWIND) COMMAND 


[THIS ROUTINE WILL REWIND THE SELECTED TAPE. 


INPUT: 


OUTPUT 


10$: 


20$: 


RWPACK: 


WIND:: 


CAUTION: THE aia DOES NOT WAIT FOR BOT 
TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 
ssp TO SET IN THE TSSR 


CALLING SEQUENCE: 


DO A SOFT INIT 

DO A WRITE CHARACTERISTICS 

JSR PC REWIND 

RS FIRST DEVICE UNIBUS ADDRESS 

RO THE CONTENTS OF R4 IS PASSED TO RO 

SAVREG ZSAVE R1-R5 UNTIL WEXT RETURN 
V #RWPACK RG :GET PACKET 

MOV R4, TSDB(RS) SEND PACKET A ADDRESS TO EXECUTE 

MOV #360. ,R3 SENOUGH TIME FOR 2400° REEL TO REWIND 

JSR PC,WAITE ‘WAIT FOR SSR TO SET 

BCS 208 SLEAVE WHEN SSR IS SET 

DELAY 250. [WAIT FOR .25 SECONDS 

MOV #250. ,(PC)+ 

. WORD 

MOV LSDLY,(PC)+ 


DEC ~6(PC) 
BN = 

DEC =22(PC) 
BNE 0 


DEC R3 sBUMP COUNTER DOWN 

BNE 10$ KEEP GOIN 

CLC :CLEAR CARRY TO SET ERROR 
MOV R4,RO PASS THe PACKET ADDRESS 
RTS PC ; RETURN 


-=<.#10>8177770 


-WORD 102010 POSTION COMMAND (REWIND) 
-WORD 0 NOT USED 


SEQ 0056 


5 
TSV3 = GLOBAL AREAS MACRO M1113 os 08:41 PAGE 30-1 
REWIND = POSITION TAPE (REWIND) COMMAND — $EQ 0057 















TSV3_= GLOBAL AREAS 
CKRAM = COMPARE RAM TO 1/0 PACKET 


— 
~ 


1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 011104 
1246 011104 
1247 011110 
1248 011114 
1249 011120 
1250 011122 
1251 011126 
1282 011134 
1253 011140 
1254 011144 
1255 011150 
1256 011154 
1257 011156 
1258 011160 
1259 011162 
1260 011164 
1261 011170 
1366 011172 
1263 011174 
1264 011176 
1265 011200 
1266 011202 
1267 011204 
1968 0112 


o 
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002240 
000201 


016326 
000000 000000 
016326 


000000 
016326 
000000 
000210 


000010 002300 


+ 
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CKRAM = COMPARE RAM TO I/O PACKET 


ROUTINE TO READ THE FIRST 8 BYTES FROM RAM 
sMEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 


S INPUT: 


OUTPUT: 


10$: 


208: 


30$: 
50$: 


R4 
R5 


CARRY 


DATA HELD 


ADDRESS OF THE COMMAND PACKET 
FIRST DEVICE UNIBUS ADDRESS 


SET = RAM MATCHES PACKET 


CLR = RAM DOES NOT MATCH PACKET 
pte OUTPUT: 
THE TABLE RAMDATA IS FILLED WITH THE 


RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE 


SIDE EFFECTS: 


THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 


#RAMDATA,R1 
 falheatctes 


PC,CHKTSSR 


(R1) +, (24)+ 
20$ 

R3 

R2 

R2, #RMPKTEND 
10$ 

R3 

30s 

50$ 


#8. ,RAMSIZ 
PC 





sSAVE THE GENERAL REGISTERS 

s ADDRESS TO SAVE THE RAM DATA 
BYTE ADDRESS pd ofan RAM DATA 

CL LEAR THE — FLAG 

;WAIT FOR 


: COMPARE {Meee 


BRANCH IF 
SET ERROR FLAG 
ADDRESS OF NEXT RAM LOCATION 
sREACHED END YET 
:BRANCH Tall yo ReaD 
WAS AN ERROR F 
:BRANCH IF NOT 
ee cmny TO SHOW ERROR 
:SHOW GOOD COMPARE 
:SETUP RAMSIZ FOR PRAMPKT ROUTINE 


SEQ 0058 


(nn ny 





Is 
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3 
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1304 011232 
1305 011236 
1306 011244 
1307 011250 
1308 011254 
1309 011260 
1310 011264 
1311 011266 
1312 011270 
1313 011272 
1314 011274 
1315 011302 
1316 011306 
1317 011310 
1318 011316 
1319 011322 
1320 011324 
1321 011326 
1322 011332 
1323 011334 
1324 011336 
1325 011340 
1326 011342 
1327 011344 
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000167 


016326 
016326 
016326 
000000 


000010 
002224 
000012 
000200 


000176 


000000 


002300 


002300 
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~SBTTL CKRAM2 = COMPARE RAM TO I/O CHARACTERISTICS DATA 


ROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM 


;MEMORY 
INPUT: 


10$: 


20S: 


25$: 
27$: 


30$: 


OUTPUT: 


AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 
R4 ADDRESS OF THE CHARACTERISTICS DATA 

RS FIRST DEVICE UNIBUS ADDRESS 

CARRY SET = RAM MATCHES PACKET 


CLR ~ RAM DOES NOT MATCH PACKET 


IMPLICIT OUTPUT: 


a te hk IS FILLED WITH THE 
RAMSIZ IS SET TO 8. OR 10. FOR PRAMPKT ROUTINE 


SIDE EFFECTS: 


THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 


SAVREG sSAVE THE GENERAL REGISTERS 

Vv #RAMDATA,R1 sADDRESS TO SAVE THE RAM DATA 
MOV #RMCHBEG ,R2 sBYTE ADDRESS OF fry RAM DATA 
CLR R3 sCLEAR THE ERROR FLAG 
JSR PC,CHKTSSR IT FOR SSR 


WA 
SET MAINTENANCE aT 


JSR PC. CHKTSSR SWAIT FOR SSR TO SE 
MOV R2.TSDB(RS) [SELECT NEXT RAM ADDRESS 

JSR PC. CHKTSSR ‘WAIT FOR SSR TO 

MOVB = TSBA(R5), (R1) TREAD THE RAM DATA 

CMPB ss (R11) +, (R&)+ [COMPARE TO EXPECTED 

BEQ 208 [BRANCH IF OK 

INC R3 ‘SET ERROR FLAG 

INC R2 TADDRESS OF NEXT RAM LOCATION 
MOV #8. ,RAMSIZ SASSUME EXTFEA NOT SET 

Ist EXTF EA i1S THE SOF TUARE EXTENDED FEATURES SET 
MOV #10. ,RAMSIZ set Pamsi? FOR EXTEND FEATURES 
CMP R2, #RMCHEND AT END OF EXTENDED BUFFER 

BLE 10$ F NOT AT END YET 

BR 27$ TAT END BRANCH 

CMP R2,#RMCHEND=2 [REACHED END YET ? 

BLE 10$ BRAN ANCH TILL ALL READ 

TST R3 AN ERROR FOUND ? 

BEQ 30s BRAN CH IF NOT 

CLC CLEAR CARRY TO SHOW ERROR 

BR 50$ T 


DE 
SEC ‘SO GOOD COMPARE 


SEQ 0059 


5 
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CKRAM2 = COMPARE RAM TO I/O CHARACTERISTICS DATA SEQ 0060 


1336 011346 060207 50$: RTS PC RETURN 





J5 
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CKMSG = COMPARE WRITE CHAR. MESSAGE BUFFERS SEQ 0061 





1331 ~SBTTL CKMSG = COMPARE WRITE CHAR. MESSAGE BUFFERS 
Mg 

1333 3 

1334 ZROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV 

1335 sBUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 

1336 ZERROR PRINT ROUTINES. 

138 : INPUT: 

1340 : RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 

1341 : R1 RECV MESSAGE BUFFER LOW ORDER ADDRESS 

1342 : R2 EXPD MESSAGE BUFFER ADDRESS 

a OUTPUT: 

1345 : CARRY SET = MESSAGE BUFFERS MATCH 

18 3 CLR -MESSAGE BUFFERS DON'T MATCH 

1348 : IMPLICIT OUTPUT: 

1350 : EXPMSG BUFFER IS SET TO EXPD DATA 

1351 : RECMSG BUFFER IS SET TO RECV DATA 

1352 : RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 

1333 3 RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 

1355 :- 

1356 011350 CKMSG:: 

1357 011350 SAVREG zSAVE R1-R5 UNTIL NEXT RETURN 

1358 011354 010037 002302 MOV RO,RCVAIADD ZSAVE RECV HIGH ADDRESS 

1359 011360 010137 002304 MOV R1,RCVLOAD 3SAVE RECV LOW ADDRESS 

1360 011364 005737 003130 TST KTENABLE sTESTING ABOVE 28K? 

1361 011370 001403 BEQ 10$ 7BR IF NO 

1362 011372 004737 017306 JSR PC, SETMAP ZRETURN ADDRESS BIASED TO PAR6 IN RO 

1363 011376 010001 MOV RO,R1 3GET RETURNED ADDRESS BIASED i0 PAR6 

1364 011400 005004 10$: CLR R4 3WORD IN BUFFER 

1365 011402 005003 CLR R3 3CLEAR ERROR SEEN FLAG 

1366 011404 010205 MOV R2,R5 3GET EXPD BUFFER ADDRESS 

1367 011406 011264 002320 15$: MOV (R2),EXPMSG(R4) :SAVE EXPD FOR ERROR REPORT 

1368 011412 011164 002464 MOV (R1) ,RECMSG(R4) :SAVE RECV FOR ERROR REPORT 

1369 011416 022221 CMP (R2)+,(R1)+ 3EXPD EQUAL RECV? 

1370 011420 001401 BEQ 25$ : Y 

1371 011422 005203 INC R3 3SET ERROR SEEN FLAG 

1372 011424 062704 000002 258: ADD #2,.R4 :POINT TO NEXT WORD ADDRESS 

1373 011430 020427 000014 CMP R4,416 DONE FIRST 7 WORDS? 

1374 011434 003764 BLE 15 :BR IF NO 

1375 011436 032765 000200 000012 BIT #X2.EXTF .XST2(R55:1S EXTENDED FEATURES SET IN EXPD? 

1376 011444 001403 BEQ 50$ 3BR IF 

1377 011446 020427 000016 CMP R4,416 DONE EXTENDED FEATURES WORD? 

1378 011452 003755 BLE 15$ : 

1379 011454 005703 50S: TST R3 sANY ERRORS SEEN? 

1380 011456 001402 BEQ 55$ 3 

1381 011460 000241 CLC 3SET FAILURE 

13ee 011462 000401 BR 60$ 3 

1383 011464 000261 55$: SEC 3SET SUCCESS 

1384 011466 000207 608: RTS PC :RETURN 


5 
TSV3_= GLOBAL AREAS MACRO M1113 25-MAY-82 08:41 PAGE 34 


CKMSG2 = COMPARE EXPD RECV MESSAGE BUFFERS SEQ 0062 





1387 ~SBTTL CKMSG2 = COMPARE EXPD RECV MESSAGE BUFFERS 
1389 : 
1390 ZROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 
1391 ZBUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
139 TERROR PRINT ROUTINES. 
1394 INPUT: 
13% ; RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
1397 : R1 RECV MESSAGE BUFFER LOW ORDER ADDRESS 
1398 ; R2 EXPD MESSAGE BUFFER ADDRESS 
1399 : R3 NUMBER OF BYTES TO COMPARE 
1401 SQUTPUT 
1403 ; CARRY SET = MESSAGE BUFFERS MATCH 
1404 : CLR = MESSAGE BUFFERS DON'T MATCH 
1406 SIMPLICIT OUTPUT: 
1408 : EXPMSG BUFFER IS SET TO EXPD DATA 
1409 : RECMSG BUFFER IS SET TO RECV DAT 
1410 : RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 
1611 ; RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 
1413 :- 
1414 011470 CKMSG2:: 
1415 011470 SAVREG :SAVE R1-R5 UNTIL NEXT RETURN 
1416 011474 020327 000144 CMP R3 oWRECHSG-EXPMSG; @aD IS COUNT ABOVE MAX ALLOWED? 
1417 011500 003412 BLE aap 
1418 011502 012703 000144 MOV #RECMSG-EXPMSG, a’: : aad 
1419 011506 PRINTF #DEBUGMSG 3 
011506 012746 011622 MOV ADEBUGASG, ~(SP) 
011512 012746 000001 MOV #1,-(SP) 
011516 010600 MOV 
011520 104417 TRAP _— CSPNTF 
011522 062706 ADD #4,SP 
1420 011526 010037 002302 5$: MOV RO.RCVHIADD :SAVE RECV HIGH ADDRESS 
1421 011532 010137 0023 MOV R1.RCVLOAD 3SAVE RECV LOW ADDRESS 
1422 011536 005737 003130 TST KTENABLE : TESTING ABOVE 28k? 
1423 011542 001403 BEQ 10$ ‘BR IF NO 
1424 011544 004737 017306 JSR PC, SETMAP ZRETURN ADDRESS BIASED TO PARG IN RO 
1425 011550 010001 MOV RO,R1 [GET RETURNED ADDRESS BIASED TO PAR6 
1426 011552 005004 10$: CLR RG [WORD IN BUFFER 
1427 011554 005005 CLR RS ZCLEAR ERROR SEEN FLAG 
1428 011556 111264 002320 15$:  MOVB  (R2),EXPMSG(R4) :SAVE EXPD FOR ERROR REPORT 
1429 011 111164 002464 MOVB  (R1),RECMSG(R4) :SAVE RECV FOR ERROR REPORT 
1430 011566 122221 c (R2)+, (R1)+ SEXPD EQUAL RECV? 
1431 011570 001401 BEQ 25 ‘BR IF YES 
143¢ 011572 005205 INC RS [SET ERROR SEEN FLAG 
1433 011574 062704 000001 25$: ADD #1,R4 [POINT TO NEXT BYTE 
1434 011600 020403 CMP R4_R3 :DONE ALL BYTES? 
1435 011602 002001 BGE 50$ :BR IF YES 
1436 011604 000764 BR 15$ [DO NEXT BYTE 
1437 011606 005705 50$: TST RS TANY ERRORS SEEN? 
1438 011610 001402 BEQ 55$ *BR IF NO 
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CKMSG2 = COMPARE EXPD RECV MESSAGE BUFFERS SEQ 0063 
1439 011612 000241 CLC 3SET FAILURE 
1440 011614 000401 BR 60$ ; 
1441 011616 000261 55$: SEC :SET SUCCESS 
eg 011620 000207 60$: RTS PC zRETURN 
1444 011622 120 122 117 DEBUGMSG: sASCIZ ‘PROGRAM INTERNAL ERROR =CKMSG2 MESSAGE BUFFER EXCEEDED-° ;aaD 
1445 011712 045 116 045 RCM: .ASCII /2NZA_ *e2/ 
446 011723 040 040 124 ERCM: .ASCIZ / TSSR ERROR CODE REC'D = / 
1447 011756 056 056 056 SIMSG: .ASCIZ /.... AFTER DOING SOFT INIT/ 
re | 012011 124 105 123 TINERR: yh /TEST: .../ 
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CKMSG2 = COMPARE EXPD RECV MESSAGE BUFFERS SEQ 0064 
1451 
es 3 
145 s¢ 
1454 3 
Meee ;PRINT ROUTINE TO FATAL SOFT INIT ERRORS 
1457 3s INPUT: 
1458 3 
PF HY R1 CONTENTS OF TSSR AT ERROR 
10a3 sSIDE EFFECTS: 
Mier 3 EXECUTES DROP UNIT TO CEASE TESTING 
1465 :- 
1466 
1467 012024 BGNMSG SFIMSG 
012024 SFIMSG:: 
1468 012024 004737 006020 JSR PC,PRITSSR ;PRINT CONTENTS OF TSSR REGISTER 
1469 012030 004737 017172 JSR PC, CKDROP ;DROP UNIT, IF ALLOWED 
1470 012034 ENDMSG 
012034 L10003: 
012034 104423 TRAP CSMSG 
1471 
1472 
1473 ‘RINT ROUTINE TO PRINT THE CONTENTS 
1a TS SR AND A COMMAND PACKET OTHER Tae GET STATUS COMMAND PACKET. 
1476 : INPUTS: 
1477 ; 
1478 : RI TSSR CONTENTS 
1479 3 R4 ADDRESS OF COMMAND PACKET 
1480 : 
1481 :- 
1482 
1483 012036 BGNMSG PKTSSR 
012036 PKTSSR:: 
1484 012036 004737 006020 JSR PC, PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
1485 012042 012700 000004 MOV NO. OF WORDS IN P 
1486 012046 004737 007364 JSR PC,PRIPKT sPRINT THE CONTENTS OF COMMAND PACKET 
1487 012052 ENDMSG 
012052 L10004: 
012052 104423 TRAP CSMSG 
1488 
1489 3¢ 
1490 ;PRINT ROUTINE TO PRINT THE CONTENTS OF 
th ;TSSR AND A GET STATUS COMMAND PACKET. 
1493 ; INPUTS: 
1494 3 
1495 3 R1 TSSR CONTENTS 
ps ; R4 ADDRESS OF COMMAND PACKET 
1498 :- 
1499 
1500 012054 BGNMSG PKTGETS 
012054 PKTGETS:: 




















1501 012054 
1206 012060 
1503 012064 
1504 012070 
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004737 
012700 
004737 


104423 


004737 


104423 


004737 
010200 
010301 
004737 


104423 


006020 
000002 
007364 


006020 


006020 


014232 


L10005: 
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CKMSG2 = COMPARE EXPD RECV MESSAGE BUFFERS 


JSR PC,PRITSSR sPRINT THE Salt adk: OF TSSR REGISTER 


MOV #2,R0 sNO. OF WORDS IN GET STATUS PACKET 
JSR PC,PRIPKT PRINT THE CONTENTS OF COMMAND PACKET 
ENDMSG 

TRAP C$MSG 


3+ 
sPRINT TSSR ERRORS FOR INITIALIZATION TESTS 


INPUTS: 


SFFMSG:: 


L10006: 


s+ 


R1 TSSR_ CONTENTS 
R4 ADDRESS OF COMMAND PACKET 


BGNMSG SFFMSG 


JSR PC,PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
ENDMSG , 
TRAP C$MSG 


-SBTTL PKTMES = PRINT TSSR AND MESSAGE BUFFER 


PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 


;BUFFER 


t INPUTS: 


L10007: 


FOR ERROR REPORTS 


R1 CONTENTS OF TSSR 
R2 LOW ORDER MESSAGE BUFFER 
R3 RDER MESSAGE BUFFER ADDRESS 
NOTE: R3” 13” IGNORED IF KTENABLE FLAG IS CLEAR 
BGNMSG PKTMES 
"" JSR PC,PRITSSR :PRINT CONTENTS OF TSSR 
MOV R2.RO [LOW ORDER ADDRESS 
MOV R3.R1 THIGH ORDER ADDRESS 
JSR PC PRMESS [PRINT THE MESSAGE BUFFER 
ENDMSG 
TRAP —C$MSG 





SEQ 0065 
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010270 


000007 
002224 


000010 
014542 


-SBTTL ADDSSR = PRINT TEST ADDRESS AND TSSR 


3+ 

[PRINT ROUTINE TO PRINT THE CONTENTS OF 
[TSSR AND A MEMORY TEST ADDRESS 
INPUTS: 


: RS FIRST DEVICE UNIBUS ADDRESS 
: ERRHI HIGH ORDER MEMORY TEST ADDRESS 
: ERRLO LOW ORDER MEMORY TEST ADDRESS 


BGNMSG ADDSSR 
ADDSSR:: 
JSR PC ,PRITADD ;PRINT Attn M4 ADDRESS 
MOV TSSR(RS), R1 3GET CURRENT 
SR PC, PRITSSR :PRINT THE CONTENTS OF TSSR REGISTER 
ENDMSG 
L10010: 
TRAP CSMSG 


-SBTTL MSGEXP = PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS 


+ 

SPRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 
SIMPLICIT INPUTS: 

: EXPMSG = EXPECTED MESSAGE BUFFER 

: RECMSG = RECEIVED MESSAGE BUFFER 

: RCVHIADD= RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
: RCVLOADD= RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
. BGNMSG MSGEXP 


sASSUME NO EXT FEATURES 


#7,R0 
TST EXTFEA sEXT cones SET? 
5$ F NO 


MOV #8. ,RO TEXT FEATURE BUFFER IS 8 WORDS 
5$: JSR PC ,.PRMSGEXP *PRINT EXPD/RECV MESSAGE BUFFERS 
ENDMSG 
L10011: ; 
TRAP CSMSG 


a i ee C+ --- 


SEQ 0066 





FIFEXP 


+ — 


1583 

1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

159 

159 

1594 

1595 012160 
012160 

1596 012160 
012160 
012162 
012166 
012172 
012174 
012176 

1597 012202 
Bigsve 
012206 
012212 
012214 
012216 

1598 012222 

1599 012224 

1600 012250 
012230 
012230 

1601 012232 

1602 012301 

160 
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- PRINT FIFO EXP/RECV DATA 


Oooo 
2 
Ronwo 


RASBRS 


egseee g 
Nm 
~“ N NSONN 
So = 
oa oa 
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012232 
000002 
000006 
012301 
000001 
000004 
015112 


045 
045 


+ 
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FIFEXP = PRINT FIFO EXP/RECV DATA 


SPRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 


R1 


- BYTE COUNT 


SIMPLICIT INPUTS: 


FIFEXP:: 


L10012: 


FIFIMSG: 
FIF2MSG: 


EXPMSG 
RECMSG 


BGNMSG 


- EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 
~ RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 


FIFEXP 


#FIFIMSG,R1 sPRINT BYTES TRANSFERRED 
R1,=(SP) 
#FIFIMSG,-(SP) 
o= (SP) 
SP,8 
gy 
#FIFQ4SG sPRINT HEADER MSG 
#F IF2MSG,-(SP) 
-\ SP) 
SPR 
CSPNTX 
R1,R0 GET BYTE COUNT 
PC ,PRBYTEXP sPRINT FIFO BYTES IN ERROR 
CSMSG 
eASCIZ ‘ZNZA NUMBER OF BYTES TRANSFERRED = %u2" 
eASCIZ ‘ZNZA FIFO DATA BYTES IN ERROR:' 


SEQ 0067 


a ee a eo a = 


| 0 6 





TSV3 = GLOBAL AREAS MACRO M1113 25-MAY-82 08:41 PAGE 38 1 
MSGSTAT = PRINT STATUS HEADER AND MESSAGE BUFFERS ~ SEQ 0068 
1608 ~SBTTL MSGSTAT = PRINT STATUS HEADER AND MESSAGE BUFFERS 
1608 $ 
1 sPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
1611 3 
191g sIMPLICIT INPUTS: 
1614 $ EXPMSG = EXPECTED MESSAGE eee 
1615 3 RECMSG = RECEIVED MESSAGE BUFFER 
1616 3 RCVHIADD= RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
ele 3 RCVLOADD= RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
1619 012340 BGNMSG MSGSTAT 
012340 MSGSTAT:: 
1620 012340 012701 012402 MOV #STATCOD,R1 sASCII ADDRESS TABLE 
1621 012344 012100 10$: MOV (R1)+,R0 ;DONE ALL MSG LINES? 
1622 012346 001410 BEQ 20$ F YES 
1623 012350 PRINTX RO {PRINT STATUS BIT NAMES 
012350 010046 MOV RO,=-(SP) 
012352 012746 000001 MOV #1,-(SP) 
012356 010600 MOV SP,RO 
012360 104415 TRAP CSPNTX 
012362 062706 000004 ADD #4,SP 
1624 012366 000766 BR 10$ :D0 ANOTHER MSG LINE 
1625 012370 012700 000012 20$: MOV #10.,R0 S NUMBER OF WORDS IN A READ STATUS BUFFER 
1626 012374 004737 014542 JSR PC ,PRMSGEXP sPRINT EXPD/RECY MESSAGE BUFFERS 
1627 012400 ENDMSG 
012400 L10013: 
162 012400 104423 TRAP CSMSG 
1629 012402 012420 012462 012553 STATCOD: -WORD 1$,2$,3$,4$,5$,6$.0 
1630 012420 116 045 1$:.ASCIZ *ENZA Tape Bus s Signals in Word #8:° 
1631 012462 045 116 045 2$:.ASCIZ ‘ZN%ZA R<15> IEOT <12> IFMK <9> IRDY<6> IRWD<2>° 
1632 012553 045 116 045 3$:.ASCIZ ‘ZNZA TRESVOc{a> IIDENT<11> IHER <8> JIONL<5> IFBY<1>° 
1633 012644 045 116 045 4$:.ASCIZ ‘2ZNZA IRESV1<13> = <10> ISPEED<7> ILDP<4> IFPT<0>° 
1634 012735 045 116 045 5$:.ASC1Z hae Tape Bus ree & in Word #9:° 
1635 012777 045 116 045 6$:.ASCIZ ‘NZ DATMIS<7> Lunes OUTRDY<S> INRDY<4>° 
1636 EVEN 
1637 
1630 
Hs 93 -SBTTL MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 
1642 : 
Hy 9 sPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
H+ 9 : IMPLICIT INPUTS: 
1647 3 EXPMSG = EXPECTED MESSAGE ore 
1648 3 RECMSG = RECEIVED MESSAGE BUFFER 
1649 ; RCVHIADD= RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
3 3 RCVLOADD= RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
1652 013054 BGNMSG MSGLOOP 
013054 MSGLOOP: : 


1653 013054 012701 013116 MOV #LOOPCOD,R1 sASCII ADDRESS TABLE 





E 6 
TSV3 = GLOBAL AREAS MACRO M1113 25=MAY=82 08:41 PAGE 38-1 
MSGLOOP = PRIN 


T LOOPBACK HEADER AND MESSAGE BUFFERS SEQ 0069 

1654 013060 012100 10$: MOV (R1)+,RO0 ;DONE ALL MSG LINES? 
1655 013062 001410 BEQ 20$ sBR IF Y 
1656 013064 PRINTX RO ;PRINT STATUS BIT NAMES 

013064 010046 MOV RO,-(SP) 

013066 012746 000001 MOV #1,-(SP) 

013072 010600 MOV P,RO 

013074 104415 TRAP CSPNTX 

013076 000004 ADD #4,SP 
1657 013102 000766 BR 10$ :D0 ANOTHER MSG LINE 
1658 013104 012700 000012 20$: MOV #10.,R0 é ER OF WORDS IN A READ STATUS BUFFER 
1659 013110 004737 014542 JSR PC ,PRMSGEXP sPRINT EXPD/RECV MESSAGE BUFFERS 
1660 013114 ENDMSG 

013114 L10014: 
1661 013114 104423 TRAP CSMSG 
1662 013116 013136 013217 013310 LOOPCOD: -WORD 1$,2$,3$,4$,5$,6$,7$,0 
1663 013136 045 116 045 1$:.ASCIZ ‘ZN%A Tape Bus Loopback Signals in Word #8:' 
1664 013211 045 116 045 2$:.ASCIZ ‘ZNZA PARERR<15> IRESV2<14> IRESV1<13>° 
1665 013310 045 116 045 3$:.ASCIZ ‘ZNZA IHISP=>1EOT<12> IWRT=>1 IDENT<11> IREV =>ICER <10>° 
1666 013407 045 116 045 4$:.ASCIZ ‘ZNZA IWFM =>1FMK<09> IEDIT=>IHER <08> IFAD =>ISPEED<07>° 
1667 013506 045 116 045 5$:.ASCIZ ‘%NZA ITADO=>IRDY<06> ITAD1=>IONL <05> IERASE=>ILDP <04>° 
1668 013605 045 116 045 6$:.ASCIZ ‘ZNZA IREW =>IDBY<03> IRWU =>IRWD <02> IFEN =>IFBY <01>° 
1669 013704 045 116 045 7$:.ASCIZ ‘2ZNZA IGO =>I1FPT<00>° 
1o0 -EVEN 








TSV3 = GLOBAL AREAS 


MACRO M1113 25-MAY~82 08:41 PAGE 39 
MSGSUB = PRINT WRITE SUBSYSTEM MESSAGE BUFFER SEQ 0070 


012700 000012 
004737 014542 


=] 
uw 


Se S& 


1 
1 
1 
! 
1 
1 
1 


NANNY NNN 


= 
Nu-o 





.SBTTL MSGSUB = PRINT WRITE SUBSYSTEM MESSAGE BUFFER 
[PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
SIMPLICIT INPUTS: 
: EXPMSG = EXPECTED MESSAGE BUFFER 
: RECMSG = RECEIVED MESSAGE BUFF 


ER 
RCVHIADD= RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADD= RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


BGNMSG MSGSUB 

MSGSUB: : 
MOV #10.,R0 sSIZE OF WRITE SUBSYSTEM BUFFER 
JSR PC ,PRMSGEXP sPRINT EXPD/RECV MESSAGE BUFFERS 
ENDMSG 

L10015: 
TRAP C$MSG 


3 -SBTTL MEMADD - PRINT MEMORY ADDRESS DATA ERROR 


[PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 
SIMPLICIT INPUTS: 

: ERRHI = MEMORY ERROR HIGH ORDER ADDRESS 

: ERRLO = MEMORY ERR OR LOW ORDER ADDRESS 

: EXP - EXPECTED DAT 

: RECV = RECEIVED DATA 


BGNMSG MEMADD 


MEMADD 
JSR PC ,PRIADD PRINT MEMORY ADDRESS IN ERROR 
MOV EXPD,R1 :GET EXPD DATA 
MOV RECV,R2 GET RECEIVED DATA 
JSR PC,PRIXOR :PRINT EXPD/RECV 
ENDMSG 
L10016: 


TRAP CSMSG 


| TSV3_= GLOBAL AREAS MACRO M1113 25-MAY-82 08:41 PAGE 40 
| PRAMPKT = PRINT RAM AND PACKET DAT SEQ 0071 


1715 .SBTTL PRAMPKT = PRINT RAM AND PACKET DATA 
1717 : 
1718 ZPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
ah SWHEN THE RAM DATA DOES NOT MATCH. 
1721 : INPUTS: 
1728 : 
1728 : RG POINTER TO COMMAND PACKET 
1725 ZIMPLICIT INPUTS: 
1727 : RAMDATA DATA AS READ FROM THE RAM 
1728 ; RAMS1Z NUMBER OF BYTES IN PACKET 
1729 : IF RAMSIZ=0 THEN DEFAULT TO 8. 
731 ‘IMPLICIT OUTPUTS: 
1733 : RAMSIZ SET TO 0 
1734 :- 
1735 
1736 013746 PRAMPKT: 
1737 013766 SAVREG ZSAVE R1-R5 UNTIL NEXT RETURN 
1738 013772 012701 002240 MOV #RAMDATA,R1 [DATA FROM THE RAM 
1739 013776 005002 CLR R ZINIT BYTE NUMBER 
1740 014000 122124 5$: CMPB es (R11) +, (RG) + [COMPARE EXPECTED, RECEIVED 
1741 014002 001005 BNE ‘BR IF NO MATCH 
1742 014004 F ORCERROR 7$,NOTSSR 
1743 014014 8G BR 10$ zaad 
1744 014016 116105 177777 7$: MOVB =1(R1),RS ‘GET RECV RAM DATA 
1745 014022 116403 177777 MOVB = =1(R4).R3 :GET EXPD PACKET DATA 
1746 014026 XOR R5,R3 :XOR EXPD/RECV 
1747 014036 042703 177400 BIC #177400,R3 :LOW BYTE ONLY 
1748 014042 116137 177777 002232 MOVB =1(R1),RECV ZGET RECEIVED RAM DATA 
1749 014050 116437 177777 002230 MOVB = =1(R4) EXPD__ :GET EXPECTED RAM DATA 
1750 014056 PRINTB ZRAMASC,R2,RCCV.EXPD,R3 
14056 010346 MOV R3,-(SP5 
14 013746 002230 MOV EXPD,-(SP) -- 
14 013746 002232 MOV RECV,-(SP) 
014070 010246 MOV R2,-(SP) 
014072 012746 014146 MOV MRAMASC,-(SP) 
014076 012746 000005 MOV #5,-(SP) 
014102 01 MOV SP.R 
014104 104414 TRAP  C$PNTB 
014106 062706 900614 ADD #14,SP 
1751 014112 005202 10$: INC R2 ZUPDATE BYTE COUNT 
1752 014114 005737 002300 TST RAMS1Z [DEFAULT TO 8.? 
1753 014120 001404 BEQ 15$ ‘BR IF YES 
1754 014122 020237 002300 CMP R2,RAMSIZ ZDONE ALL BYTES? 
1755 014126 003724 BLE 5$ 7BR IF NO 
1756 014130 03 BR 25$ : 
1757 014132 020227 000010 15$: CMP R2,48. [DONE DEFAULT NUMBER OF BYTES? 
1758 014136 002720 20$: BLT $ : 
1759 014140 005037 002300 25$: CLR RAMS1Z :SET DEFAULT RAMSIZ 
1760 014144 000207 RTS PC RETURN 
1762 014146 045 116 045 RAMASC: .ASCIZ ‘2NZA BYTE: %D2%A RAM: %O3%A Packet: %O3%A XOR:%03° 





oe 


nn 


| TSV3 = GLOBAL AREAS MACRO M1113 25=MAY=82 08:41 PAGE 40-1 
_ PRAMPKT = PRINT RAM AND PACKET DATA 
| 


1763 «EVEN 
1764 
1765 


es 


SEQ 0072 


ann 
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TSV3 = GLOBAL AREAS AACRO M1113 25 — 08:41 PAGE 41 
PRMESS = PRINT CONTENTS OF MESSAGE BUFF 


1767 .SBTTL PRMESS = PRINT CONTENTS OF MESSAGE BUFFER 
:¢ 
1769 
1770 [THIS ROUTINE PRINTS THE CONTENTS OF 
1771 [THE 7 OR 8 WORD MESSAGE BUFFER RETURNED BY THE 
1772 :TSV-05. 
1773 3 
177% : INPUT: 
1776 : RO LOW ORDER ADDRESS OF MESSAGE BUFFER 
1777 : R1 HIGH ORDER ADDRESS OF MESSAGE BUFFER 
1778 3 NOTE: R1 IS IGNORED IF KTENABLE FLAG IS CLEAR 
1700 sTHIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 
1782 - 
1783 
1784 014232 PRMESS: 
1785 014232 SAVREG ZSAVE THE REGISTERS 
1786 014236 010005 x MOV RO,RS TSAVE LOW ORDER ADDRESS 
1787 014240 005737 003130 TST KTENABLE ADDRESS ABOVE 28k? 
1788 014244 001001 BNE 10$ :BR IF YES 
1789 014246 005001 CLR R1 :SET HIGH ORDER ADDRESS TO 0 
1790 014250 010103 10$: MOV R1,R3 TSAVE HIGH ORDER ADDRESS 
1791 014252 006100 ROL RO i SHIFT BIT15 TO C BIT 
1792 014254 006101 ROL R1 SSHIFT TO HIGH ORDER FOR PRINTOUT 
1793 014256 PRINTX ee R1,R5 SPRINT MESSAGE BUFFER ADDRESS 
014256 010546 MOV R5.~($ 
014260 010146 MOV R1.=( 
014262 012746 014410 MOV SPROASC. -(SP) 
014266 012746 000003 MOV #3,-(SP) 
014272 010600 MOV » 
014274 104415 TRAP  CSPNTX 
014276 062706 000010 ADD #10,SP 
1794 014302 PRINTX #PRIASC sPRINT HEADER FOR CONTENTS 
014302 012746 014455 MOV #PRIASC,=(SP) 
014306 012746 000001 MOV #1,-(SP5 
014312 010600 MOV : 
014314 104415 TRAP — CS$PNTX 
014316 062706 000004 ADD #4,SP 
1795 014322 005004 CLR RS sNUMBER OF THE NEXT WORD 
1796 014324 010501 MOV RS,R1 ;COPY LOW ORDER ADDRESS 
1797 014326 010300 MOV R3_RO : COPY HIGH ORDER ADDRESS 
1798 014330 001403 BEQ 20 BR IF NOT ABOVE 28k 
1799 014332 004737 017306 JSR PC, SETMAP ‘SETUP PAR ADDRESS IN RO 
1800 014 010005 MOV RO,RS [GET PAR FORMAT ADDRESS ABOVE 28k 
1801 014340 20$: § PRINTX #PRASC,R4,(R5)+ :PRINT THE CONTENTS OF MEMORY BUFFER 
014340 012546 MOV (R5)+,=(SP) 
014342 010446 MOV R4,~(SP) 
014344 012746 014513 MOV #PRASC,-(SP) 
014350 012746 000003 MOV #3,-(SP) 
014354 010600 V 
014356 104415 TRAP  C$PNTX 
014360 062706 000010 ADD #10,SP 
1802 014364 005204 INC RG sNUMBER OF = oNEXT 
1803 014366 020427 000007 CMP RGA? SDONE ALL YET 
1804 014372 003005 BGT 50$ *BRANCH IF ALL * pone 


SEQ 0073 









TSV3 = GLOBAL —_ MACRO M1113 25-MAY=82 08:41 PAGE 41-1 
PRMESS = PRINT CONTENTS OF MESSAGE BUFFER SEQ 0074 


805 014374 605761 BLT 20$ T FIRST 7 WORDS 
4376 032763 000200 000012 BIT #X2.EXTF, xST2(R35; ZEXTENDED FEATUTES 
4404 001355 BE 20$ PRINT EXTENDED STATUS uorD 
000207 50$: RTS a TRETURN 


045 PROASC: .ASCIZ ‘%ZNZA Message Buffer Address = , 201205" 
045 PRIASC: .ASCIZ ‘SNZA Message Buffer Contents: * 
045 PRASC: ~ly *ZNZA WordZD1ZA: %0° 


AAO 
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2746 014722 
LF dps | 000003 


S35 


062706 000010 

012746 014767 

014616 012746 000001 
010600 

000004 
004 

14634 012701 002320 


0 
014640 012702 002464 
014644 011100 

014646 011203 

014650 

014660 

014660 010346 

014662 012246 

014664 012146 

014666 010446 

014670 012746 015025 
014674 012746 000005 
014700 010600 

014702 104415 

014704 062706 000014 
014710 0952 

014712 020405 

014714 002001 

014716 000°°5 

014720 000207 
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MACRO M1113 25-MAY-82 08:41 PAGE 42 
PRMSGEXP = PRINT EXPD/RECV MESSAGE BUFFERS 


SEQ C075 
PRMSGEXP = PRINT EXPD/RECV MESSAGE BUFFERS 


ROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 


RO 


~ NUMBER OF WORDS IN BUFFER 


SIMPLICIT INPUTS: 


20$: 


50$: 


EXPMSG 
RECMSG 


~ EXPECTED MESSAGE BUFFER 
- RECEIVED MESSAGE BUFFER 


RCVHIADD= RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADD= RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


PRMSGEXP: : 


SAVREG 
MOV 


sSAVE R1-R5 UNTIL NEXT RETURN 
RO,RS 3 SAVE R OF WORDS 
RCVLOADD ,RO 2GET RECV LOW ADDRESS 

;COPY LOW ADDRESS 


RCVHIADD,R1 

RO :SHIFT BIT15 T 

R1 ‘SHIFT TO HIGH ORDER FOR PRINTOUT 
#PRMSGO,.R1,R4  :PRINT MESSAGE BUFFER ADDRESS 
R4,-(SP) 

R1.=(SP) 

#PRMSGO,-(SP) 

#3,-(SP) 

SP‘ RO 

CSPNTX 

#10,SP 

#PRMSG1 :PRINT HEADER FOR CONTENTS 
#PRMSG1,-(SP) 

#1,-(SP 

SP,RO 

CSPNTX 

#4,SP 

R4 ZNUMBER OF THE CURRENT WORD 
#EXPMSG,R1 [GET EXPD BUFFER ADDRESS 
#RECMSG.R2 [GET RECV BUFFER ADDRESS 
(R1) RO 7GET EXPD 

(R2).R3 ?GET RECV 

RO,R :XOR EXPD/RECV 

#PRMSG2,R4, (R1)+,(R2)+,R3 

R3,=(SP) 

(R3)+,=(SP) 

(R1)+.=(SP) 

R4,-(SP) 

#PRMSG2,-(SP) 

#5,-(SP) 

SP, 

C 

#14,SP 

R4 :NUMBER OF THE NEXT 

R4,RS [DONE ALL YET? 

50$ ‘BR IF YES 

20$ :D0 ANOTHER 

PC RETURN 
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MSGEXP = PRINT EXPD/RECV MESSAGE BUFFERS SEQ 0076 





1851 
1852 014722 045 116 045 PRMSGO: .ASCIZ ‘ZNZA Message Buffer a = %01%05° 

1853 014767 045 116 045 PRMSG1: .ASCIZ ‘ZNZA oa Buffer Cont fs 

1838 015025 045 116 045 PRMSG2: rh "ZNZA WORD #2D2%A EXPD: "HOGA RECV: %06%A XOR: %06° 


1856 


a i ee +e 


6 
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PRBYTEXP = PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER SEQ 0077 



















1858 .SBTTL PRBYTEXP = PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 
:¢ 
1860 
1861 [ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 
186¢ : ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 
1864 ; RO - NUMBER OF BYTES IN BUFFER 
1866 SIMPLICIT INPUTS: 
1868 ; EXPMSG = EXPECTED MESSAGE BUFFER 
1869 3 RECMSG = RECEIVED MESSAGE BUFFER 
1871 015112 PRBYTEXP: : 
1872 015112 SAVREG ZSAVE R1-R5 UNTIL NEXT RETURN 
1873 015116 010005 MOV RO,RS [SAVE NUMBER OF BYTES 
1874 015120 005037 002316 CLR PRMNO SINIT ERROR 
1875 015124 005004 CLR R4 [NUMBER OF THE CURRENT BYTE 
1876 015126 012701 002320 MOV #EXPMSG,R1 :GET EXPD BUFFER ADDRESS 
1877 015132 012702 002464 MOV #RECMSG. *R2 GET RECV BUFFER ADDRESS 
1878 015136 111100 20$: MOVB  (R1),RO° [GET EXPD BYTE 
1879 015140 042700 177400 BIC #°C<377>,R0 ZCLEAR UPPER BYTE 
1880 015144 110037 015460 MOVB =- RO. PRBEXP ‘SAVE FOR ERROR REPORT 
1881 015150 111203 MOVB = (R2) RB [GET RECV BYTE 
1882 015152 042703 177400 BIC pick, R3 [CLEAR UPPER BYTE 
1883 015156 110337 015462 MOVB _R3, PRBREC FOR ERROR REPORT 
1884 015162 XOR RO.R3 :XOR EXPD/RECV 
1885 015172 122122 CMPB —s« (1) +, (R2)+ EXP, wPRE CYS 
1886 015174 001431 BEQ 30$ “BR VF “YES 
1887 015176 005237 002316 INC PRMNO ‘UPDATE ERROR COUNT 
1888 015202 023727 002316 000010 CMP PRMNO, #8. :PRINTED 8? 
1889 015210 101023 BHI 0$ “BR IF YES 
1890 015212 27$: = PRINTX #PRBMSG,R4,PRBEXP,PRBREC,R3 
015212 010346 MOV (SP) 
015214 013746 015462 MOV PRBREC ,-(SP) 
015220 013746 015460 MOV PRBEXP, =(SP) 
015224 010446 MOV R4,-(SP 
015226 012746 015326 MOV #PRBMSG,-(SP) 
015232 012746 000005 MOV #5,-(SP) 
015236 010600 MOV P-RO 
015240 104415 TRAP  C$PNTX 
015242 062706 000014 ADD #14,SP 
1891 015246 FORCEXIT 50$ yaad 
1892 015256 000404 BR 35$ saad 
1893 015260 30S: 
1894 015260 FORCERROR 27$,NOTSSR  ;aaD 
1895 015270 35$: saad 
1896 015270 005204 INC RG ZNUMBER OF THE NEXT 
1897 015272 020405 CMP R4,RS [DONE ALL VET? 
1898 015274 002001 BGE 50$ ‘BR IF YES 
1899 015276 000717 BR 20$ 7D0 ANOTHER 
1900 015300 50$: | PRINTX #PRBTOT,PRMNO :PRIN TOTAL ERROR COUNT 
015300 013746 002316 MOV RMNO, = (SP 
015304 012746 015413 MOV #PRBTOT,-(SP) 
015 000002 MOV #2,-(SP) 
015 MOV P-RO 
015 TRAP  CSPNTX 





TSV3_= GLOBAL AREAS MACRO M1113 25=MAY-82 08:41 PAGE 43-1 


PRBYTEXP = PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER SEQ 0078 
015320 062706 000006 ADD #6,SP 
1901 015324 000207 RTS PC ;RETURN 
1903 015326 045 116 045 PRBMSG: .ASCIZ '‘ZNZA BYTE #4D2%A EXPD: %03%A RECV: %03%A XOR: %03° 
1904 015413 045 116 045 PRBTOT: -ASCI2 "ZN%A NUMBER OF BYTES IN ERROR = %D2° 
1906 015460 000000 PRBEXP: .WORD 0 ZEXPD 
1907 015462 000000 PRBREC: .WORD 0 TRECV 






TSV3 = GLOBAL AREAS MACRO M1113 25-MAY-82 08:41 PAGE 44 
EXPREC = PRINT EXPD/RECV WORD DATA 


1319 -SBTTL EXPREC = PRINT EXPD/RECV WORD DATA 
se 
191 3 
1318 sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
1915 3 INPUTS: 
1916 3 
1917 ; R1 RECEIVED DATA 
1918 3 R2 EXPECTED DATA 
1919 : 
1920 3° 
1921 
1922 015464 BGNMSG EXPREC 
015464 EXPREC:: 
1923 015464 004737 007736 SR PC, PRIXOR PRINT THE DATA 
1924 015470 ENDMSG 
015470 L10017: 
; 015470 104423 TRAP CSMSG 





TSV3_ = GLOBAL AREAS MACRO M1113 25=MAY=82 08:41 PAGE 45 
EXPBREC = PRINT EXPD/RECV BYTE DATA . SEQ 0080 


1969 -SBTTL EXPBREC = PRINT EXPD/RECV BYTE DATA 
34 
19 $ 
1331 sPRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 
1938 3 
1934 3 INPUTS: 
1935 3 
1936 : Ri RECEIVED DATA BYTE 
1937 3 R2 EXPECTED DATA BYTE 
1938 3 
1939 3° 
1940 
1941 015472 BGNMSG EXPBREC 
01547 EXPBREC:: 
15S 015472 004737 007606 JSR PC,PRIBXOR sPRINT THE DATA 
1943 015476 ENDMSG 
015476 L10020: 
015476 104423 TRAP CSMSG 
1944 
1945 
1946 
1947 
has -SBTTL RAMERR = PRINT RAM AND PACKET DATA 
20 
1950 ; 
133) sPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
1953 : INPUTS: 
1954 3 
Hes 3 R4 POINTER TO COMMAND PACKET 
sb 14 Zs IMPLICIT INPUTS: 
1959 s RAMDATA DATA AS READ FROM THE RAM 
1960 3 RAMSIZ NUMBER OF BYTES IN PACKET 
Hh 9 : IF RAMSIZ=0 THEN DEFAULT TO 8. 
1963 s IMPLICIT OUTPUTS: 
1964 ; 
1965 : RAMSIZ SET 19 0 
1966 3 
1967 
1968 015500 BGNMSG RAMERR 
015500 RAMERR: : 
1969 015500 004737 013766 JSR PC ,PRAMPKT :PRINT RAM/PACKET DATA 
1970 015504 ENDMSG 
015504 L10021: 
015504 104423 TRAP C$MSG 
1972 
A -SBTTL RAMTADD = PRINT TEST ADDRESS, RAM AND PACKET DATA 
=< 
1975 3 
1368 PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 


1978 INPUTS: 
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MACRO M1113 25-MAY-82 08:41 PAGE 45-1 
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RAMTADD = PRINT TEST ADDRESS, RAM AND PACKET DATA SEQ 0081 
1979 : 
io 3 R4 POINTER TO COMMAND PACKET 
198 ZIMPLICIT INPUTS: 
1984 : RAMDATA DATA AS READ FROM THE RAM 
1985 : RAMSIZ NUMBER OF BYTES IN P. 
1986 : AMSIZ=0 THEN DEFAULT TO 8. 
1987 : ERRHI HIGH ORDER TEST ADDR 
13e5 : ERRLO LOW ORDER TEST ADDRESS 
1990 IMPLICIT OUTPUTS: 
1992 RAMSIZ SET TO 0 
1993 : 
1994 
1995 015506 BGNMSG RAMTADD 
015506 RAMTADD:: 
1996 015506 004737 010270 JSR PC.PRITADD sPRINT TEST ADDRESS 
1997 015512 004737 013766 JSR PC, PRAMPKT SPRINT RAM/PACKET DATA 
1998 015516 ENDMSG 
015516 L10022: 
015516 104423 TRAP —CS$MSG 
1999 
2000 
2001 -SBTTL RAMEXP = PRINT RAM EXPD/RECV DATA 
5008 ‘ 
Soo sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
2006 : INPUTS: 
2007 s 
2008 5 R1 RECEIVED DATA 
2009 3 R2 EXPECTED DATA 
2010 : RS CONTROLLER RAM ADDRESS 
2012 
2013 015520 BGNMSG RAMEXP 
015520 RAMEXP: : 
2014 015520 042701 177400 BIC #*(<377>,R1 ZSAVE EXPD RAM DATA BYTE 
2015 015524 042702 177400 BIC #°C<377>_R2 [SAVE EXPD RAM DATA BYTE 
2016 015530 00473 010062 JSR Pe -PRIRAM sPRINT THE RAM ADDRESS 
2017 015534 004737 007736 JSR PC; PRIXOR sPRINT THE DATA 
2018 015540 ENDMSG 
015540 L10023: 
ani 015540 104423 TRAP _—CS$MSG 
ooge -SBTTL TIMEXP = PRINT TIMER A,B AND EXP/REC 
2022 : 
2023 SPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
2024 [AND TIMER A,B HEADER MESSAGE 
2026 INPUTS: 
2027 : 
2028 r R1 RECEIVED DATA 
2029 : R2 EXPECTED DATA 


TSV3 = GLOBAL AREAS MACRO M1113 25=MAY=82 08:41 PAGE 45-2 
TIMEXP = PRINT TIMER A,B AND EXP/REC 


2030 Fd 

2031 

2032 01554 BGNMSG TIMEXP 
01554 TIMEXP: : 

2033 01554 PRINTX #TIMSGO 
015542 012746 015570 MOV aTIMScO -(SP) 
015546 012746 000001 MOV #1,-(SP5 
015552 010600 MOV SP.RO 
015554 104415 TRAP CSPNTX 
015556 062706 000004 ADD #4,SP 

2034 015562 004737 007736 JSR PC-PRIXOR 

2035 015566 ENDMSG 
015566 L10024: 

015566 104423 TRAP — C$MSG 

2036 

2038 015570 045 


PRINT HEADER 


PRINT THE DATA 


116 045 a eASCIZ ‘ZNZA TIMER A STATUS IS IN BIT 3%NZA TIMER B STATUS IS IN BIT 2° 


SEQ 0082 





[poo 
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BADSSR = PRINT TSSR ERRORS ON DATA TRANSFERS SEQ 0083 
seh -SBTTL BADSSR = PRINT TSSR ERRORS ON DATA TRANSFERS 
ak 3¢ 
2044 3 
Spee sPRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 
2047 : INPUTS: 
2048 3 
2049 8 R1 CONTENTS OF TSSR 
2050 3 R2 DATA WRITTEN (8 BITS) 
2051 3 
£036 :- 
205 
2054 013670 BGNMSG BADSSR 
1567 BADSSR:: 
2055 015670 010246 MOV R2,-(SP) - ;SAVE DATA TRANSFERRED 
2056 015672 042702. 177400 BIC #177400,R2 sGET JUST ONE BYTE 
2057 015676 PRINTB #XFERASC,R2 
015676 010246 MOV 2,7 (SP 
015700 012746 015730 MOV #XFERASC,-(SP) 
015704 012746 000002 MOV #2,°(SP) 
015710 010600 MOV SP RO 
015712 104414 TRAP CS$PNTB 
015714 062706 000006 ADD #6,SP 
2058 015720 012602 MOV (SP) +, R2 sRESTORE R2 
2059 015722 004737 006020 JSR PC, PRITSSR sDECODE TSSR CONTENTS 
2060 015726 ENDMSG 
015726 L10025: 
26 104423 TRAP C 


0157 $MSG 
one} 015730 045 116 045 XFERASC: eASCIZ ‘2NZA Data Transferred = %03° 


ee 


apogee 
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GLOBAL SUBROUTINES SECTION 


2064 
2065 


«SBTTL GLOBAL SUBROUTINES SECTION 


p++ 
; THE GLOBAL SUBROUTINES SECTION 7 tame THE SUBROUTINES 
:_ THAT ARE USED IN MORE THAN ONE TEST. 


Be Ona lh EIN OL «cae ale” ee ROR 


SEQ 006« 
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SOFINIT = SOFT INITIALIZE OF CONTROLLE SEQ 0085 
sore -SBTTL SOFINIT = SOFT INITIALIZE OF CONTROLLER 
Ops ¥y 
2076 : ROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 
2077 Y WRITING INTG THE TSSR Beis ae AFTER t.. We INIT, 
2078 one TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
$008 :DETECTED SHOULD BE TREATED AS DEVICE PATAL ERRORS. 
2081 INPUTS: 
2082 3 
oS? : RS ADDRESS OF FIRST REGISTER 
2085 ;OUTPUTS: 
2086 $ 
2087 3 RO CCNTENTS OF TSSR, IF ERROR 
2088 3 CARRY SET IF INIT WAS OKAY 
iat Bs CLEAR IF FATAL ERROR 
44] sCALLING SEQUENCE: 
2093 : MOV #ADDRESS RS 
2094 3 JSR PC,SOF INIT 
2095 : Bcs CONT INUE 
2096 z ERRDF ;REPORT FATAL ERROR 
2097 3 
2098 = 
2099 
2100 015764 SOF INIT:: 
2101 015764 SAVREG : save THE REGISTERS 
2102 015770 012765 000000 000002 MOV #0, TSSR(RS) ; DO T ne INIT. 
2103 015776 004737 016240 JSR PC ,WAITF : WAIT FOR SSR 
2104 01 016500 000002 MOV TSSR(RS) RO [GET THE TSSR REGISTER 
2105 016 010004 MOY RO,R4 ;TSSR CONTENTS 
2106 016010 042704 176277 BIC #*C<HIADDR?OFL>, R4 
2107 016014 052704 002200 BIS #SSR!NBA,R4 3R4 HAS EXPECTED CONTENTS 
2108 016020 020400 CMP RE RO ONLY EXPECTED BITS SET ? 
2109 016022 001402 BEQ 5$ ‘BRANCH IF OKAY 
2110 016024 000241. CLC ;CLEAR THE CARRY FOR ERROR 
2111 016026 000401** BR 10$ 260 TO EXIT 
2112 016030 000261 5$: SEC 3SET THE CARRY BIT 
2113 016032 000207 10$: RTS PC SRETURN TO CALLER 


4 


a es ee ee 


I 7 
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- CHECK TSSR FOR AMBIGUIT 
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| 
| CHK 
| 3115 .SBTTL CHKAMB = CHECK TSSR FOR AMBIGUITY 
| $i % 
e119 THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 
120 [FOR AMBIGUITY 
2121 ; 
2122 3 INPUT: 
2123 3 
2124 : RO CONTENTS UF TSSR 
2125 3 
2126 OUTPUT: 
2127 3 
$is8 ; RO CONTENTS OF TSSR 
2130 : CARRY SET = NO AMBIGUITY 
2131 ; CLR = AMBIGUOUS CONTENTS 
2132 ; 
2133 :- 
2134 
2135 016034 CHKAMB : 
2136 016034 SAVREG ZSAVE THE GENERAL REGISTERS 
2137 016040 01 MOV RO,R4 :CONTENTS OF TSSR 
2138 016042 032700 100000 BIT #SC,RO :1S BIT 15 SET ? 
2139 016046 001004 BNE 5$ [BRANCH 
2140 016050 032700 174077 BIT #*C<NBA!OFL!SSR!HIADDR>, } zANY OTHER BITS SET ? 
2141 016054 001023 BNE 40$ :MUST BE AN ERR 
2142 016056 24 BR 45$ RETURN WITH SUCCESS 
2143 016060 032700 000200 5$: BIT #SSR,RO Z1S READY BIT SET ? 
2144 016064 001011 BNE 10$ [BRANCH IF READY BIT IS SET. 
2145 016066 032700 000040 BIT #B1T5,RO 71S FATAL ERROR BIT SET 
2146 016072 001414 BEQ 40$ sERROR IF NOT 
2147 016074 042704 177761 BIC #*CTERCLS.R4 © :CLEAR ALL BUT TERMINATION COvE 
2148 016100 020427 000016 CMP R4,416 ZALL THREE BITS MUST BE SET 
2149 016104 001007 BNE 40$ ZERROR IF NOT SET 
2150 016106 10 BR 45$ IF ALL ARE 
2151 016110 032700 000040 10$: BIT #B1TS,RO 21S FATAL ERR ? 
2152 016114 001405 BEQ SERROR IF BIT IS SET WITH SSR 
2153 016116 032700 000006 BIT #81T2!B1T1,RO 21S THIS A FUNCTION REJECT 
2154 016122 001002 BNE 45$ IF TSSR IS OK 
2155 016124 000241 40$: CLC SAMBIGUOUS CONTENTS 
2156 016126 000401 BR 50$ 
2157 016130 000261 45$: SEC zSHOW SUCCESS = NO AMBIGUITY 
2158 016132 000207 °9$: RTS PC [RETURN TO CALLER 


ey ee ee a a 


GLOBAL 


as 


3168 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 016134 
2175 

2176 016135 
2177 

2178 

2179 016136 
2180 

2181 016140 
2182 

2183 

2184 016142 
2185 016144 
2186 016150 
2187 016154 
2188 016160 
2189 016162 
2190 016164 
2191 016172 
2192 

2193 

2194 016174 
2195 016176 
2196 016204 
2197 


AREAS 


000200 
000001 
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NT,DOSBINT = ENABLE/DISABLE INTERRUPTS 
6 


002206 
016206 
000340 


000000 000002 


000340 000002 


-SBTTL ENAINT,DSBINT = ENABLE/DISABLE INTERRUPTS 


DEFAULT pees INTERRUPT HANDLER 
TIME-OUT, REPORT DEV 
: OTHERWISE. SAVE DPU REGISTERS AND DISMISS. 


IF DISPL 


; BIT DEFINITIONS FOR ‘*INTMASK’’ AND ‘‘INTFLAG'’ BYTES: 


; DON'T CHECK FOR BAD INTERRUPTS == TEST WILL. 
; EXPECT “'STOP’’ INTERRUPT. 


== SAYS EXPECTING INTERRUPTS 
== SAYS WE GOT ONE (IF POSITIVE) 
BYTE 0 


IOKCKIN=B81T7 
I0KSTP=81T0 


; INTERRUPT MASK 
INTMASK: 
s INTERRUPT FLAG 
INTFLAG: 


SAVED INTERRUPT VECTOR: 
INTVE dD. 6«(—O 


3SAVE CPU PC 
INTCPC: .WORD 


bong oe ppt od TO ENABLE  - Piastamaaliea 
ENAINT: RO,-(SP) 


RTI 


; SUBROUTINE 
DSBINT: MOV 
MOV 


RTI 


0 


IVEC,RO 
#INTR, (RO) + 


weRIOF (RO)+ 


SP)+,RO 
(SP) ,=(SP) 
#0,2(SP) 


#PRI07,2(SP) 


2 SAV 


TO pe! ee (RAISE PRIORITY TO LEVEL 7) 


S. 
V FATAL, AND ABORT PASS. 


RO 
7GET POINTER TO VECTORS 
3SET UP INTERRUPT VECTOR 


sRESTORE RO 
sSET CPU TO LEVEL 0 


SEQ 0087 


a 


—™ -« 
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INTR = INTERRUPT HANDLERS SEQ 0088 
199 .SBTTL INTR = INTERRUPT HANDLERS 
2201 016206 — BGNSRV INTR :DEFINE INTERRUPT ENTRY 
2202 016206 012737 000001 002222 “" mov #1, INTRECV #SET FLAG TO SHOY INTERRUPT RECEIVED 
2203 016214 105037 016135 CLRB —s INT FLAG CLEAR FLAG TO SAY WE GOT INTERRUPT 
2204 016220 132737 000001 016134 BIT8 #I10KSTP,INTMASK S EXPECTING STOP INTERRUPT? 
2205 016226 001003 BNE :BR IF YES 
2206 016230 152737 000001 016135 BIS8 #IOKSTP,INTFLAG :NO. SET THE ERROR FLAG. 
2208 :SAVE REGISTERS, MSG BUFFER, ETC. 
2209 016236 i$: 
2210 016236 ENDSRV 
016236 L10026: 


a1 016236 000002 
2212 


WAITF 





Nm 


MIMININONPPNty 
forororoforononm 
MN oS 

FW OC OONOUS 


MINIM 
MMM 


6244 
2231 016250 
2232 016254 
2233 
2234 016256 
2235 016260 


2241 
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= WAIT FOR SUBSYSTEM READY 


000401 


105700 
100420 
012727 
600 


005326 
000207 
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003000 


000002 


000001 
002116 
177772 
177756 





-SBTTL WAITF 


PAGE 52 


’ - WAIT FOR SUBSYSTEM READY 
; SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG 


ADDRESS OF FIRST DEVICE REGISTER 


CONTENTS OF tid TSSR READ 


SET = READY 


CLR = TIMEOUT WAITING FOR READY 


1$ 


C$BRK 
#3000, =(SP) 
TSSR(RS) ,RO 
RO 
7s 
#1,(PC)+ 
LSDLY,(PC)+ 
-6(PC) 
274 
~22(PC) 
-720 
(SP) 
2s 
4$ 


(SP) + 
PC 


NOP WHEN SUPER FIXED 
: DO A SUPVSR BREAK FIRST. 


3300 MSEC TIMES 
READ THE TSSR REGISTER 
sTEST FOR READY BIT SET 


3 EXIT ON STOP FLAG. 
: WAIT 100 USEC 


reese DELAY COUNT 
sRETRY UNTIL TIMER ExP 


CONTROLLER IS STOPPED. 
‘RESTORE STACK WITHOUT CHANGING CARRY BIT 
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CHKTSSR = CHECK TSSR FOR READY SEQ 0090 
oe: -SBTTL CHKTSSR = CHECK TSSR FOR READY 
2246 4 
2247 
2248 :THIS ROUTINE WAITS FOR READY IN THE TSSR 
$249 3 AND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 
2251 INPUT: 
2252 3 
$527 ; RS ADDRESS OF CSR REGISTERS 
2255 3 OUTPUT: 
2256 ; 
2257 : RO CONTENTS OF TSSR 
2258 3 CARRY SET - 
2259 : CLR = NOT READY AMBIGUOUS, OR SC SET 
2260 3 
2261 = 
2262 
2263 016326 CHKTSSR: 
2264 016326 004737 016240 JSR PC ,WAITF zWAIT FOR READY 
2265 016332 103014 BCC 20$ _ ;BRANCH IF TIME OUT 
2266 016334 004737 016034 JSR PC, CHKAMB :TSSR AMBIGOUS? 
2267 016340 103006 BCC 108 3BR IF YES 
016342 032700 100000 BIT #SC,RO 3 SPECIAL CONDITION SET? 
2269 016346 001405 BEQ 15$ 7BR IF 
2270 016350 032700 074000 BIT #<SCE'BIE!RMRINXM>,RO ANY ERROR BITS SET? 
2271 016354 001402 BEQ 15$ 'BR IF N 
2272 016356 000241 10S: CLC ZSET FAILURE 
2273 016360 000401 BR 20$ 3 
2274 016362 000261 15$: SEC 3SET SUCCESS 
2275 016364 000207 20$: RTS PC sRETURN TO CALLER 
$ 





Ponononononoroprory 

peepee 

FWN SO VBNOUSWA= 
Soooooooeo“eo 


2325 
2326 
$t5e 


TSV3 = GLOBAL AREAS 
= CHECK FOR NONEXISTENT MEMORY 


005737 
006 


000207 








N 7 
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016420 000004 
000200 000006 


“000002 


016430 


000004 


002166 
002202 
002214 





SEQ 0091 
~SBTTL XNXM - CHECK FOR NONEXISTENT MEMORY 
i+ 
: ROUTINE TO TEST FOR Mn NEXM IN THE wee au THRU (R2). 


; ON RETURN, IF ee ® (R1) = NEXM ADDR 
: “C= 0, ALL ADDRESSES OK. 
sCALL: MOV ADR1,R1 
3 MOV ADR2,R2 
: JSR PC,NXM 
: RETURN zTEST "'C’’ AND PROCEED. 
XNXM: MOV #2$,a84 s SET BUSERR VECTOR. 
MOV #PRI04 ,a#6 
CLR R3 LAG. 
1$: TST (R1) TEST THE ADDRESS(ES). 
IF ANY TRAP, CONTINUE AT 2S. 
CMP R1,R2 sOTHERWISE, CONTINUE HERE. 
BEQ 3$ :BR IF aT asons (NO NEXM'S). 


ADD #2,R1 ;SET NEXT ADDRESS... 
BR 1$ 


3+ eAND CONTINUE’ 
2$: COM R3 sGOT ONE, SET FLAG... 
MOV #3$,(SP) 
RTI ¢-+eAND DISMISS INTERRUPT... 


3$: CLRVEC #4 ¢e+eAND GIVE BACK THE VECTOR. 
MOV #4,R0 
TRAP CSCVEC 
TST R3 DID WE CATCH ONE ?? 
BEQ +4 sNO, *'C'* = 0, SKIP NEXT 
SEC sVES, “c'' = i, (R1) = NEXM ADDR. 
RTS PC 


-SBTTL TSTLOOP = CHECK ITERATION COUNT 
3+ 
: pryatt a TO EXECUTE TEST ITERATIONS. 
EXIT WITH ‘'C’* SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO. 
; LOOP COUNTER IS SET BY ‘BEGIN. TEST’* MACRO. 
CALL: LOOPTO ARG 


STLOOP: : 
TST 


i 


NOITS 3 ITERATIONS INHIBITED? 
BNE 1$ : ae 
TST QvP 
BMI 1$ Loos DISALLOWED IN QUICK PASS. 
eee aed : BUMP LOOP COUNTER. 
1$ anf 3 sLOOP DISALLOWED, OR DONE. 
2$: SEC ;LOOP ENABLED. 
3$: RTS PC 


a 
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TSTLOOP = CHECK ITERATION COUNT -  $EQ 0092 
zi 
$332 -SBTTL TSTSETUP = PRINT TEST NAME AND INIT ERROR COUNTS 
3¢ 
2334 ; PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG. 
2335 : INCREMENT ‘‘TESTK’’ TO INDICATE THE NUMBER OF TESTS 
2336 : IN THE CURRENT RUN SEQUENCE. 
$330 3 CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 
2339 : INPUT: 
2340 ; 
2341 : RO POINTER TO TEST ID ASCIZ STRING 
238 ZOUTPUT: 
Sere : RS ADDRESS OF FIRST DEVICE REGISTER 
Seer sIMPLICIT OUTPUTS: 
tof 3 TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 
+4 :SIDE EFFECTS: 
2353 : INTERRUPT LEVEL IS RASIED TO LEVEL OF 
2354 ; THE DEVICE UNDER TEST 
2355 3 
2356 3° 
2357 
2358 016500 TSTSETUP:: 
2359 016500 010046 MOV RO,-(SP) sSAVE THE TEST ID MESSAGE 
2360 016502 005037 003150 CLR SIFLAG : CLEAR "SOFT INIT’’ FLAG 
2361 016506 005037 016746 CLR ERRK : CLEAR LOCAL ERROR COUNTER. 
336¢ 016512 005037 005766 CLR EXTA 3 CLEAR ERROR EXTENSION FLAG. 
2363 016516 105037 016134 _ CLRB —INTMASK 3 CLEAR INTERRUPT MASK (CHECK ERROR) 
2364 016522 013700 002200 MOV UNITN,RO 3 GET THE UNIT NUMBER, 
2365 016526 006300 ASL RO 3 se. AND MAKE IT & WORD OFFSET. 
2366 016530 005737 003110 TST NODEV 3 DID STARTUP FIND THE DEVICE? 
2367 016534 901430 ' BEQ 4$ : BR IF YES 
2368 016526 1000: OA 3$ > BR IF NOT IDLE 
2369 016540 052760 160000 003172 BIS #160000, ERTABL(RO) ; FLAG ERROR IN THE ERROR TABLE 
2370 016546 , ERRDF 1,NXR,NXRERR =; NO DEVICE HERE <= PRINT IT 
016546 104455 TRAP  CSERDF 
016550 000001 .WORD 1 
016552 003734 -WORD NXR 
016554 005732 .WORD NXRERR 
2371 016556 000407 BR 
2372 016560 052760 160001 003172 3$: BIS #160001 ,ERTABL (RO) 3 FLAG ERROR IN THE ERROR TABLE 
2373 016566 ERRDF 2,NOINIT : DEVICE NOT IDLE 
016566 104455 TRAP CSERDF 
016570 000002 . WORD 
016572 004331 -WORD NOINIT 
016574 000000 . WORD 
2374 016576 012737 177777 003106 2$: MOV #-1,DUFLG : DROP THE UNIT 
2375 016604 DODU _—sCvUNI'TN 
016604 013700 002200 MOV UNITN,RO 
016610 104451 TRAP (C$DODU 
2376 016612 DOCLN : ABORT THE PASS 





ee Ee Cee Ce ee 
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TSTSETUP = PRINT TEST NAME AND INIT ERROR COUNTS SEQ 0093 

016612 104444 TRAP aa 

gor? 016614 000423 BR $ 

2379 016616 4$: RFLAGS RO : GET THE OPERATOR FLAGS. 
016616 104421 TRAP CSRFLA 

2380 016620 032700 001000 BIT #PNT RO : PRINT THE TEST NUMBERS? 

2381 016624 001412 BEG 1$ : BR IF _NO 

Seat 016626 011600 MOV (SP) ,RO sGET THE ID MESSAGE 

2383 0166 PRINTF #TNAM,RO DISPLAY THE TEST ID 
016630 010046 MOV RO,-(SP) 
016632 012746 016674 MOV #TNAM, = (SP) 
016636 012746 000002 MOV #2,-(SP) 
016642 010600 MOV SP,RO 
016644 104417 TRAP CSPNTF 
016646 062706 000006 ADD #6,SP 

2384 016652 005237 002212 1$: INC TSTCNT : BUMP TEST COUNTER. 

2385 016656 SETPRI IPRI sPRIORITY THAT OF DEVICE 
016656 013700 002210 MOV IPRI,RO 
016662 104441 TRAP CS$SPRI 

2386 016664 005726 5$: TST (SP)+ sFIX UP THE STACK 

2387 016666 013705 002204 MOV CSRADDR ,R5 : ADDRESS OF TSV REGISTERS ON UNIBUS 

2388 016672 000207 RTS 

2389 016674 045 123 045 INAM: .ASCIZ ‘&%SZTXA Test’ 

2390 -EVEN 
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TSTEND 


2397 016710 
016710 
2398 016712 


2399 016716 
2400 016720 
016720 
016724 
6730 
016734 
6736 
740 


016 
2401 016744 
2402 
2403 016746 


2404 016750 
se03 016767 


2421 017066 
2422 017070 
2423 

2424 017072 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


005237 
010046 
013700 
006300 
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~ PRINT ERRORS RECEIVED 


020000 


016746 
016750 
000002 


000006 


1 
2 122 


016746 
002200 
003172 
607777 


002200 


002172 
016746 002170 
000040 

177777 003106 


- SBTTL 


TSTEND 


- PRINT ERRORS RECEIVED 


; AT END OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 
: IF NORMAL ERROR REPORTING IS DISABLED (FLA:IER). 


TSTEND: RFLAGS 
AP 


1$: RTS 
ERRK: 
ESUM: ‘ 
EMAXDU: 


-SBTTL 


RO 
CSRFLA 
geen 


#ESUM,ERRK 
ERRK ,=(SP) 
#ESUM,=(SP) 
a 


SPR 
CSPNTF 
#6,SP 
PC 


/%A_%D%A_ERRORS/ 


: BR IF “IER'’ NOT SET. 
: PRINT ERROR COUNT. 


; LOCAL ERROR COUNT. 


/ERROR LIMIT REACHED == DROPPING UNIT/ 


INCERK 


~ INCREMENT LOCAL ERROR COUNT 


ot 
: ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 


INCERK: INC 
M 


1$: MOV 


CKEMAX: 


0 
1$: RFLAGS 
AP 





ERRK 
RO,-(SP) 

- aac 
#ERTABL ,RO 


#7777, (RO) 
1$ 

(RO) 
(SP)+,RO 

PC 

RO, ryt 

UNITN RO 

ERTABL (RO) . RO 
#1700008 RO” 

RO, GERRMAX 

Fok LERAAAR 

RO 

CSRFLA 

#IDU,RO 


#-1,DUFLG 


Soran 
an 


rea a LOCAL ERROR COUNT 
GET yo NUMBER , 
ID MAKE IT A WORD OFFSET. 
RO” Gers ADDRESS OF ERROR TABLE ENTRY. 
E ERROR COUNT 


INCREMENT THE DEVIC 
iy WE OVERFLOW THE FIELD? 


R IF NO. 
; YES == BACK IT UP TO 7777. 
; RESTORE RO 

; RETURN TO CALLER. 


; SAVE RO 


GET po NUMBER 
D MAKE IT A WORD OFFSET 
GET ERROR TABLE ENTRY 
EXTRACT ERROR COUNT FIELD 
IS Oe LIMIT EXCEEDED FOR THIS UNIT? 


BR IF 
IS S LOcaL LIMIT EXCEEDED FOR THIS TEST? 


BR IF 

GET OPERATOR FLAGS 

i aS ty INHIBITED? 
NO == DROP THE UNIT 


SEQ 0094 


ide ARON a VOSS gs es 6 consttinabin 
| TSV3_= GLOBAL AREAS MACRO Oe ne 08:41 PAGE 56-1 


INCERK = INCREMENT LOCAL ERROR C SEQ 0095 
17154 060000 - WORD 
2438 017156 DODU UNITN 
017156 013700 002200 MOV UNITN,RO 
017162 104451 TRAP C$DODU 
2439 017164 DOCLN 
017164 104444 TRAP CSDCLN 
2440 017166 012600 2$: MOV (SP)+,R0 : RESTORE RO 
2441 017170 000207 RTS PC ; RETURN TO CALLER 


CKDROP 


| 8 
TSV3 = GLOBAL AREAS MACRO M1113 25=MAY-82 08:41 PAGE 57 
= CHECK IF UNIT SHOULD BE DROPPED SE@ 0096 
sree -SBTTL CKDROP = CHECK IF UNIT SHOULD BE DROPPED 
3+ 
$148 : CHECK IF UNIT SHOULD BE DROPPED 
2448 017172 010046 CKDROP: MOV RO,-(SP) 
2442 017174 FORCERROR 1$,NOTSSR 
2450 017204 RFLAGS RO 
017204 10442 TRAP CSRFLA 
2451 vi72 032700 00040 BIT #1DU,RO 
2452 017212 00101 BNE 1$ 
2453 017214 011600 MOV (SP) ,RO 
24654 017216 0127357 177777 003106 MOV #-1,DUFLG 
2455 017224 DODU UNITN 
17224 013706 002200 MOV UNITN,RO 
017230 104451 TRAP C$DODU 
2456 017232 DOCLN zABORT THE PASS 
017232 104444 TRAP CSDCLN 
2457 017234 012600 1$: MOV (SP)+,RO 
2458 017236 000207 RTS PC 
2459 
2460 
2461 
2462 
eo? -SBTTL CONFIG = DETERMINE CONFIGURATION OF SYSTEM 
7 s SUBROUTINE = DETERMINE CONFIGURATION OF TSVOS SYSTEM. 
2467 017240 CONF IG: 
2468 017240 004737 015764 JSR PC, SOF INIT 
000207 RTS PC 


2469 017244 
479 


[—--- — - - OF 4 st 


6 8 


. TSV3 = GLOBAL AREAS MACRO M1113 25-MAY-82 od ade PAGE 58 
| KTON,KTOFF = ENABLE/DISABLE MEMORY MANAGEMEN 
sere -SBTTL KTON,KTOFF 
$o78 : SUBROUTINE ~ ENABLE MEM MGT. 
2478 017246 005737 003.26 KTON: TST KTFLG 
2479 017252 001403 BEQ 1$ 
2480 017254 012737 000001 177572 MOV #1,SRO 
2481 017262 000207 18: RTS PC 
2482 
2483 
2484 
2485 $ 
686 : SUBROUTINE = DISABLE MEM MGT. 
2488 017764 005737 003126 KTOFF: TST KTFLG 
24 7272 000240 NOP 
2491 017274 000240 NOP 
2492 017276 012737 000000 177572 MOV #0,SRO 
2493 017304 000207 1$: RTS PC 


| 

| 

| 

2489 017270 01405 BEQ 
90 01 

2495 


~ ENABLE/DISABLE MEMORY MANAGEMENT 


GOT KT? 


NO. 
YES. ENABLE KT11. 


; GOT KT11? 
NO. 


DISABLE KT. 


SEQ 0097 
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[eee 
§ TMAP = SETUP PAR6 MAPPING SEQ 0098 
| 497 .SBTTL SETMAP = SETUP PAR6 MAPPING 
| 2499 + 
2500 
2501 ;THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE 
250, AN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE 
2508 is RETURNED BIASED TO PAR6. 
2505 t INPUTS: 
2506 3 
2507 : RO HIGH ORDER ADDRESS BITS 
2508 ; R1 LOW ORDER ADDRESS BITS 
; 2309 ; 
2510 SOUTPUTS: 
2512 : RO OFFSET INTO BLOCK WITH PAR6 BIAS (I.E. THE ADDRESS) 
2513 : CARRY SET IF SUCCESS 
3514 ; CLR IF ERROR 
2516 017306 SETMAP: 
2517 017306 SAVREG sSAVE R1-R4 UNTIL NEXT > RETURN 
2518 017312 005737 003126 TST KTFLG [SYSTEM HAVE ABOVE 28K? 
2519 017316 001433 BEQ 10$ [BR IF NO 
2520 017320 010102 MOV R1,R2 SSAVE LOW ORDER BITS 
2521 000006 .REPT 6 
2522 ASR RO ZCONVERT WORD ADDRESS TO 32W BLOCKS 
2528 ROR R1 ZMAKE IT DOUBLE PRECISION 
2525 017352 042701 000177 BIC #177,R1 ALINE FOR LOWER 4K BOUNDARY 
2526 017356 020137 003126 CMP R1,KTFLG HIGHER THAN EXISTING MEMORY? 
2527 017362 103011 BHIS  10$ :BR IF YES 
2528 017364 010137 172354 MOV R1, a4K IPAR6 ZSETUP MAPPING REGISTER PAR6 
2529 017370 042702 160000 BIC #160000,R2 : SETUP DISPLACEMENT In PAGE 
2530 017374 062702 140000 ADD #140000.R2 ‘ADD IN PAR6 BIAS 
2531 017400 010200 MOV R2,RO [RETURN IN RO 
2532 017402 000261 SEC [SET SUCCESS 
2533 017404 000401 BR 15$ ; 
2534 017406 000241 10$: CLC [SET FAILURE 
535 017410 000207 15$: RTS PC RETURN 








| I 8 
| TSV3 = GLOBAL AREAS MACRO M1113 25-MAY-82 08:41 PAGE 60 


FILLMEM = FILL MEMORY WITH BACKGROUND PATTERN SEQ 0099 
2538 -SBTTL FILLMEM = FILL MEMORY WITH BACKGROUND PATTERN 
540 ; * ML MEMORY WITH A BACKGROUND PATTERN 
$3¢ 3 INPUTS 
2544 : RO = BACKGROUND PATTERN 
2545 ; FREE = FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
2546 ; KTFLG = SET TO HIGHEST MEMORY LOCATION IF > 28K. 
2548 ; OUTPUTS 
2549 ; 

2550 ; NONE 

2551 :- 

255 : 

2553 017412 FILLMEM: 

2554 017412 SAVREG ZSAVE R1-R5 UNTIL NEXT RETURN 
2555 017416 004737 017264 JSR PC,KTOFF [DISABLE KT. 

2556 017422 010003 MOV RO.R3 COPY TEST PATTERN 

2557 017424 013701 003120 MOV FREE,R1 ‘GET FIRST FREE LOCATION 

2558 017430 013702 003122 MOV FRESIZ,R2 [SIZE OF FREE SPACE BELOW 28K. 
2559 017434 010321 10$: MOV R3, (R154 :STORE A BACKGROUN 

2560 017436 005302 DEC R2 [DONE ALL MEMORY IN FREE SPACE? 
2561 017440 003375 BGT 10$ ‘BR IF NO 

256¢ 017442 005737 003126 TST KTFLG + GOT KT? 

2563 017446 001477 BEQ 55$ : NO. GET OUT. 

2564 017450 004737 017246 JSR PC,KTON : YES. ENABLE K 

2565 017454 005000 CLR RO SHIGH ORDER ADDRESS S 

2566 017456 013701 003146 MOV PST32W,R1 SGET DoGk START ADDRESS CIN 32W BLOCKS) 
2567 000006 .REPT 6 

2568 CLC :CLEAR C BIT 

2569 ROL R1 [CONVERT BLOCKS TO WORD 

2570 ROL RO [MAKE IT DOUBLE PRECISI 

2572 017526 004737 017306 JSR PC,SETMAP :SETUP PAR6 MAPPING REGISTER 
2573 017532 010320 30$: MOV R3,(RO)+ SSTORE TEST PATTERN IN 228K ADDRESS 
2574 017534 020027 160000 CMP RO. #160000 [END OF PAR6 MAPPING AR 

2575 017540 103774 BLO 30$ :BR IF NO 

2576 017542 162700 020000 SUB #20000,R0 ‘BACKUP INTO PAR6 MAPPING BEGIN 
2577 017546 066737 000200 172354 ADD #200, a#KIPARG :POINT TO NEXT 4K BLOCK >28K. 
2578 017554 023737 172354 003126 CMP @AKIPARG,KTFLG :END OF MEMORY? 

2579 017562 001427 BEQ 50$ *BR IF YES 

2580 017564 005737 003140 TST T23A 211/23A? 

2581 017570 001407 BEQ 35$ ‘NO KEEP GOING 

2582 017572 013704 177572 MOV SRO,R4 :GET SRO CONTENTS 

2583 017576 042704 177761 BIC #177761,R4 [CLEAR ALL BUT PAGE NUMBER 
2584 017602 022704 000016 CMP #16,R4 [SEE IF PAGE 7 

2585 017606 001415 BEQ 50$ SEXIT IF THERE 

2586 017610 005737 003142 35$: TST 7238 °11/238? 

2587 017614 001410 BEQ 453 [NO KEEP GOING 

2588 017616 023727 172354 007600 CMP @#KIPAR6, #7600 :REACHED 18 BITS? 

2589 017624 103001 BHIS 40$ 77 

2590 017626 000403 BR 45$ [NO KEEP GOING 

2591 017630 012737 000020 172516 40$: MOV #20,SR3 SET nee ett RELOCATION 

2592 017636 000137 017532 45$: JMP 30$ SKEEP GOING ON ETC. 


2593 017642 004737 017264 50$: JSR PC .KTOFF : DISABLE kT. 
2594 017646 000207 55$: RTS PC 





Se 
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FILCMEM - FILL MEMORY WITH BACKGROUND PATTER SEQ 0100 


2595 
2596 
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| CMPMEM = COMPARE MEMORY TO BACKGROUND PATTERN SEQ 0101 
j 
| 598 ~SBTTL CMPMEM = COMPARE MEMORY TO BACKGROUND PATTERN 
se 
| 2600 : COMPARE MEMORY WITH A BACKGROUND PATTERN 
| 4 ; INPUTS: 
2604 ; RO = BACKGROUND PATTERN 
| 560s : FREE = FIRST LOCATION AVAILABLE TO p1aG STIC 
| 2606 : KTFLG = SET TO HIGHEST MEMORY LOCATION IF }> 28K.. 
° i 
2608 ; OUTPUTS: 3 i ee 
| 2609 3 ( . % * “Ss a " 
10 | GARRY > EEL TF Baba ee 
2612 ; 7 ce i Sia 
2613 : IMPLICIT OUTPUTS: vy ata 
2614 : ae! ’ , 
2615 : ERRHI = ERROR HIGH ADDRESS 
2616 : ERRLO = ERROR LOW ADDRESS ee 
2617 : EXPD = EXPECTED 5 DATA ‘ 
3618 3 RECV = RECEIVED DATA 
2620 017650 CMPMEM: 
2621 017650 SAVREG ZSAVE R1-R5 UNTIL NEXT RETURN 
2622 017654 010003 MOV RO,R3 :COPY TEST PATTERN 
2623 017656 004737 017264 JSR PC .KTOFF :DISABL E KT. 
2624 017662 013701 003120 MOV FREE,R1 GET FIRST FREE LOC CATO 
2625 017666 013702 003122 MOV FRESIZ. R2 SSIZE OF FREE SPACE-GELOW 28K. 
2626 017672 020311 10$: CMP R3, ( ;PREE SPACE LOCATI EQUAL TO EXPD? 
2627 017674 001411 BEQ reg" “BR IF YE 
2628 017676 010137 002236 MOV R1,ERRLO :SAVE. ADDRESS IN ERROR 
2629 017702 005037 002234 CLR ERRHI [NO HIGH ADDRESS 
2630 017706 010337 002230 MOV R3,EXPD SAVE EXPD FOR ERROR REPORT 
2631 017712 011137 002232 MOV (Ri) ,RECV ; SAVE RECV FOR ERROR REPORT 
2632 017716 000474 BR 50$ 
2633 017720 005721 15$: TST (R1)+ {POINT TO NEXT ADDRESS 
- 2634 017722 005302 DEC R2 [DONE ALL MEMORY IN FREE SPACE? 
2635 017724 003362 BGT 10$ 3BR IF NO 
- 2636 017726 005737 003126 TST KTFLG : GOT KT? 
2637 017732 001472 BEQ 55$ : NO. GET OUT. 
2638 017734 004737 017246 JSR PC,KTON YES. ENABLE KT. 
2639 017740 005000 CLR RO [HIGH ORDER ADDRESS STAR 
2640 017742 013701 003146 MOV PSTZ2W,R1 [GET >28K START ADDRESS UN 32W BLOCKS) 
2641 000006 .REPT 6 
2642 ROL R1 : CONVERT BLOCKS TO WORDS 
2645 ROL RO MAKE IT DOUBLE PRECISION 
2645 017776 042701 000177 BIC #177,R1 ALINE 4K BOUNDAR 
020002 010046 MOV RO,-(SP) CAVE HIGH ORDER 
2647 020004 010146 MOV R1,-(SP) TSAVE LOW ORDER 
2648 020006 004737 017306 JSR PC, SETMAP [SETUP PAR6 MAPPING REGISTER 
2649 020012 010004 MOV ZCOPY ADDRESS BIASED TO PAR6 
2650 020014 012601 MOV (SP)+,R1 ZRESTORE LOW ORDER IN NON PAR6 FORMAT 
2651 020016 012600 MOV (SP) RO :RESTORE HIGH ORDER IN NON PAR6 FORMAT 
2652 020020 020314 30$: CMP 3, (Ra) ZABOVE 28K LOCATION EQUAL EXPD? 
2653 020022 001411 BEQ 3 “BR IF YE 
2654 020024 010037 002234 MOV RO, ERRHI TSAVE HIGH ORDER IN ERROR 





8 
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CMPMEM = COMPARE MEMORY TO BACKGROUND PATTERN SEQ 0102 










2655 020030 010137 posses MOV a iy s SAVE LOW ORDER IN ERROR 
2656 020034 010337 002230 MOV SSAVE EXPD FOR ERROR REPORT 
2657 020040 011437 002232 MOV fans Pec SAVE RECV FOR ERROR REPORT 
2658 020044 000421 BR 50$ 
2659 020046 062701 000002 32$: ADD #2,R1 ZUPDATE NON PAR6 ADDRESS 
2660 020052 005500 ADC RO MAKE IT DOUBLE PRECISION ADD 
2661 020054 062704 000002 ADD #2,R4 ‘UPDATE PAR FORMAT ADDRESS 

02 020427 160000 CMP R4. #160000 ZEN D OF PAR6 MAPPING AREA? 
2663 020064 103755 BLO F NO 
2664 020066 162704 020000 SUB #20000,R4 BACKUP INTO PAR6 MAPPING BEGIN 
2665 020072 062737 000200 172354 ADD #200, a#K IPARG :POINT T0 NEXT ,4k BLOCK >28K. 
2666 020100 023737 172354 003126 CMP Q*KIPAR6,KTFLG ZEND OF MEMORY 
2667 020106 101744 BLOS  30$ F NO 
2668 020110 37 017264 50$: JSR PC .KTOFF * TURN OFF MEMORY MAPPING 
2669 020114 000241 CLC 'SET FAILURE 
2670 020116 000403 BR 60$ ; 
2671 020120 004737 017264 55$: JSR PC .KTOFF s TURN OFF MEMORY MAPPING 
2672 020124 000261 SEC ZSET SUCCESS 


60$: RTS PC 





2673 020126 
2674 












695 

2696 020130 
2697 020130 
2698 aso lee 


2704 020150 
2705 020152 
2706 020154 


2709 020162 
2710 


TSV3 = GLOBAL AREAS 
REGSAV = SAVE R1-R5 ON STAC 
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-SBTTL REGSAV = SAVE R1-R5 ON STACK 


ROUTINE TO 
SAVE R1 THROUGH RS ON THE STACK 
[CALLING SEQUENCE: 


; JSR 


THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 
THE END OF THE CALLING ROUTINE, 
sTHE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE 


:THE CALLING ROUTINE. AT 


sREGISTERS. 


THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 


RS ,REGSAV 


CALLED VIA A JSR PC INSTRUCTION 


REGSAV: 


000012 MOV 


N 8 
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GETPAT = GET 8 BIT PATTERN FROM OPERATOR SEQ 0104 
a7ie -SBTTL GETPAT = GET 8 BIT PATTERN FROM OPERATOR 
Zz + 
2714 : 
$ol3 sROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 
2717 : INPUTS: 
2718 é 
2719 ; NONE. 
2720 : 
sil :OUTPUTS: 
sic? 3 RO OCTAL NUMBER FROM THE OPERATOR 
2725 CALLING SEQUENCE: 
2726 3 
2727 : JSR PC,GETPAT 
2728 ; 
2729 :- 
2730 
2731 020164 GETPAT:: 
2732 020164 SAVREG ;SAVE THE GENERAL REGISTERS 
2733 020170 1$: GMANID DATASC,PATDAT.0,377,0,377,NO 
020170 104443 TRAP CSGMAN 
020172 000406 BR 10000$ 
020174 020220 . WORD ATDAT 
020176 000022 -WORD TSCODE 
00 020222 -WORD DATASC 
020202 000377 .WORD 
020204 000000 -WORD TS$LOLIM 
. 020206 000377 WORD TS$HILIM 
020210 10000$: 
2734 020210 BNCOMPLETE 1$ sRETRY IF ERROR 
020210 103367 BCC 
2735 020212 013700 020220 MOV PATDAT,RO zDATA PATTERN FROM OPERATOR 
3736 020216 000207 RTS PC ;RETURN TO CALLER 
2738 3+ 
2739 ZLOCAL DATA AREA 
ores a 
2742 020220~ 000000 PATDAT: .WORD 0 TEMPORARY STORAGE FOR DATA 


2743 020222 105 116 124 DATASC: .ASCIZ ‘ENTER DATA PATTERN’ 
2744 : -EVEN 


CS A et es em esas ——-—---— 





2770 020304 


029326 

2772 020326 
326 

2773 020330 


020354 
2777 020360 
$778 020362 
2779 020364 
2780 020432 
2781 020437 


TSV3_= GLOBAL AREAS 
GETSEL 


oo 
— = 
NWWw 


Ss 
No 
enn 


0000 
Rowe 
REN 
ORS 
NOOAR 


062706 
000764 


NW 
SN 


Ssccsc =-oo— 
= 
So 
an 
ono -—— 


2 
SR 
Sena: 

Ques 








MACRO M1113 ie) 08:41 
= ISSUE MENU AND GET OPERATOR RESPONSE 


020432 
000002 


000006 


020466 


020364 
000001 


000004 


_—— = 
Aan 


1 
1 
5 


$: 
BNCOMPLE TE 1%, 
BCC 1$ 






PAGE 64 
~SBTTL GETSEL = ISSUE MENU AND GET OPERATOR RESPONSE 


ROUTINE TO ISSUE _A MENU AND GET 
— OPERATOR'S RESPONSE. 


ADDRESS OF ASCIZ STRING OF MENU 
MAXIMUM ALLOWABLE OPERATOR RESPONSE 


NUMBER OF THE OPERATOR'S SELECTION 


SAVE GENERAL REGISTERS 
RO,R TSAVE THE MENU ADDRESS 
2-R SSTART OF MENU MU STRING 
$) SEND OF ASCII ? 
ZBRANCH IF ALL LINES DISSLAYED 
#SELASC (R3)+ [DISPLAY THE MENU 


2= (SP 
ASELASC,~(SP) 
SP) 


-~B2Wa DD 
AD 


TSLOLIM 
TSHILIM 


sRETRY IF ERROR 


MENRES ,RO sGET THE ped ri REPLY 
0,R1 ;COMPARE T patna ALLOWED 


5 :BRANCH IF 

#MENERR ‘DISPLAY ERROR MESSAGE 
#MENERR,=(SP) 

#1,=(SP) 
CSPNTF 

#4,SP 

1s" 


sRETR 
RETURN TO CALLER 
“ita, *** Menu Selection Too Large ***' 


"Enter Menu Selection: ' 
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GETSEL = ISSUE MENU AND GET OPERATOR RESPONSE SEQ 0106 


278 4 -EVEN 
2783 020466 000000 MENRES: -WORD 0 







2812 020520 
2813 020522 


281 
2815 020524 
2816 





——- > 


TSV3_= GLOBAL AREAS 
CHKMAN = CHECK MANUAL INTERVENTION LEGALITY 


104450 
103411 


” 012746 


012746 
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020524 
000001 
000004 


116 


045 


«SBTTL CHKMAN = CHECK MANUAL INTERVENTION LEGALITY 


:+ 


SROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 


: INPUT: 
; NONE . 
‘OUTPUT: 
CARRY 0 MANUAL INTERVENTION NOT ALLOWED 
1 MANUAL INTERVENTION IS OK 


SIDE EFFECTS: 


A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
ALLOWED. 
CHKMAN: : 
SAVREG sSAVE THE REGISTERS 
MANUAL SEE IF MANUAL INTERVENTION OK 
TRAP CSMANI 
+ anes ag ;BRANCH IF ALLOWED 
PRINTF #NOMAN SPRINT THE WARNING MESSAGE 
MOV #NOMAN, - (SP) 
MOV #1, -(SP) 
MOV P, “RO 
TRAP CSPNTF 
ADD #4,SP 
CLC 3CLEAR CARRY FOR ERROR 
1$: RTS PC ;RETURN 


NOMAN: .ASCIZ ‘ZNZA *** Manual Intervention not Allowea - Test Aborted *e«' 


even 


SEQ 0107 





| —E 9 
TSV3_= GLOBAL AREAS MACRO M1113 — 08:41 PAGE 66 


ENVIRN = SETUP FREE DIAGNOSTIC SPACE SEQ 0108 
2818 -SBTTL ENVIRN = SETUP FREE DIAGNOSTIC SPACE 
ses 3 SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 
2822 920620 ENVIRN: MEMORY RO 
020620 104431 TRAP C$MEM 
2823 020622 010037 003120 MOV ROL FREE ; GET 1ST FREE ADDRESS... 
2824 020626 062737 000002 003120 ADD #2,FREE 
2825 020634 011037 00312 MOV (RO) ,FRESIZ y...AND WORD COUNT. 
2826 020640 162737 000004 003122 SUB #4, FRESIZ 
2827 020646 013702 002012 MOV LSUNIT,R2 : GET NUMBER OF UNITS 
2828 020652 162737 000007 003122 10$: SUB #7, FRESIZ : TAKE AWAY 7 WORDS PER UNIT 
2829 020660 005302 DEC R2 
2830 020662 00137 BNE 10$ 
2831 020664 013700 003120 MOV FREE,RO :GET FIRST FREE ADDRESS 
2832 020670 063700 003122 ADD FRESIZ,RO zPOINT TO LAST FREE ADDRESS 
2833 020674 162700 000002 SUB oR KUP 1 WORD 
020 010037 003124 MOV RO, FREEHI STORE LAST FREE ADDRESS 
2835 020704 000240 NOP FRRAARAERARAARARRERRERERRERRRERRERREREE REESE 
2836 020706 012701 177520 MOV #BDVPCR,R1 ‘GET BDV11 PCR ADDRESS 
2837 920712 010102 MOV R1,R2 :COPY TO R2 
2838 020714 062702 000002 ADD #2,R2 3SET THE RANGE 
2839 020720 004737 016366 JSR PC, XNXM 3SEE IF WE HAVE ONE 
2840 020724 103001 BCC 15$ 70K TC SET FLAGS 
2841 020726 000445 BR 40$ RETURN WITH FLAGS CLEAR 
20730 013701 177520 15$: MOV BDVPCR,R1 sSAVE PCR C 
2843 026734 062701 000001 ADD #1,R1 DD ONE TO IT 
2844 020740 012702 177520 MOV #BDVPCR,R2 3GET BDV11 PCR ADDRESS 
2845 920744 005212 INC (R2) 3TRY TO WRITE TO IT 
2846 020766 013703 177520 MOV BDVPCR,R3 [GET RESULTS 
2847 020752 020103 iMP R1,P3 :DID IT CHANGE? 
2848 020734 001017 BNE 20$ 3NO, MUST BE 11/238 
2849 020756 005237 003140 INC T23A [SET THE FLAG 
2850 020762 042737 170000 002120 BIC #170000 ,LEHIME : SUPERVISOR COULD BE WRONG 
2851 020770 000240 NOP BR 40$ FOR RELEASE 
2852 020772 PRINTF #8186 FELL THES SYSTER TYPE 
020772 012746 005550 MOV #M8186,-(SP) 
020776 012746 000001 MOV #1,-(SP) 
021002 010600 MOV P,RO 
021004 104417 TRAP  C$PNTF 
021906 062706 000004 ADD #4,SP 
2853 021012 00041 BR 40$ :RETUR 
2854 021014 005237 003142 20$: IWC 1238 3SET THE FLAG 
2855 021020 000240 NOP 7BR 40$ FOR RELEASE 
2856 021022 PRINTF #8189 TELL THE SYSTEM TYPE 
021022 012746 (05641 MOV #M8189,-(SP) 
021026 012746 000001 MOV #1,-(SP) 
021032 010600 MOV or, 
021034 104417 TRAP CS$PNTF 
36 062706 000004 ADD #4,SP 


0210 
oe 021042 000207 40$: RTS PC 3RETURN 





2894 021174 
2895 


9 
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KTINIT = SETUP KT11 MEMORY MANAGEMENT REGISTERS SEQ 0109 

2860 , .SBTTL KTINIT = SETUP K111 MEMORY MANAGEMENT REGISTERS 
286 3 
286 SROUTINE TO INIT KT=11 
2364 3 
2865 :- 
2366 
2867 021044 KTINIT: 

021044 005037 003126 CLR KTFLG : INIT >28K MEMORY FLAG 
2869 021050 5037 003130 CLR KTENABLE $ cot TEST >28K FLAG 
2870 021054 023727 002120 091577 CMP LSHIME,#1577  : GOT ENOUGH MEMORY (>28Kk)? 

71 021062 101444 BLOS 93 ; 
2872 021064 013700 000004 MOV @#ERRVEC,RO : SAVE OLD ERR VEC PTR. | 
2873 021070 012737 02116 000004 MOV “es. @#ERRVEC  : SET ERR VEC PTR. | 
2874 021076 005737 17757 TST SRO : GOT kIT? 
2875 021102 000240 NOP : CTRAP F NO). 
2876 021104 013737 002120 003126 MOV LSHIME,KTFLG  : YES. Set KT FLAG. 
2877 021112 042737 000177 003126 BIC #177, KTFLG : 
2878 021120 010037 000004 MOV RO aFERRVEC ; RESTORE OLD ERR VEC PTR. 
2879 021124 005000 CLR RO : RO = 
2880 021126 012701 172340 MOV KIPARO,R1 : R1 = Kt Ress” PTR. 
2881 021132 012761 077406 177740 1$ MOV A77206.°40(R1) SET DESCRIPTOR REG. 
2882 021140 010021 MOV KO, ¢ : SET KIPAR REG. 
2883 021142 062700 000200 ADD 4200" RO. : BUMP AR DATA BY “4K"’. 
2884 021146 029027 002000 CMP 86.9500 : AT "1/0"? 
2885 021152 00136 BNE : NO. 
2886 021154 012741 177690 MOV #177600,-(R1) =: YES. SET KTPAR7 FOR I/O. 
2887 021160 00040 BR 9$ 
2889 021162 012716 021170 2$: mov #6$, (SP) : SET UP RETURN 
2890 021166 000002 RTI + RTI TO NEXT LOCATION 
2892 021170 010037 000004 6$: MOV RO, @MERRVEC ; RESTORE OLD ERR VEC PTR. 
000207 9$: RTS PC 


KTINIT 
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021176 
021176 


BUBBYyyyyyy 


™m 
—“SOVOnNOulswnN—o 
So o 


021244 


021250 
021256 
934 

2935 021260 
2936 021262 


2937 021264 
2938 
2939 
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021250 
000000 
000000 
000000 
000000 


000000 
000000 
000000 
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- SETUP KT11 MEMORY MANAGEMENT REGISTERS 


002224 


010652 





: INPUTS: 


OUTPUTS 


INVERT: : 


CMDPKT:: 


WSMBK : : 


9 
SEQ 0110 


SUBROUTINE TO SET EXTENDED FEATURES SWITCH 
Requires that SOFINIT and WRICHR have been done previous to call. 


ee ay 


RS 


CURRENT UNIT NUMBER 
The Extended Features Switch is set. 


TST EXTFEA ; IS SWITCH SET? ? 
BNE 1$ 3: VYES,EXIT STAGE RIGHT! (or the next one outa town!) 
MOV #100206, CMDPKT 3 WRT SUB-SYS MEM CMD 
MOV #WSMBK , CMDPKT+2 : MSG BUF AD 
MOV #6, CMDPKT+6 : BYTE COUNT 
MOV #100010, wSMBK : INVERT THE SWITCH 
MOV #CMDPKT ,R4 3; SET CMDPKT INTO R4 

JSR PC,WRICHR :; 00 IT 

RTS PC : RETURN 

COMMAND PACKET. 

= <.+3>8177774 sMUST BE ON MOD 4 BOUNDRY. 

0 71ST WORD IS TSOS COMMAND. 

0 72ND WORD IS THE BUFFER LOW ADDRESS. 

0 33RD WORD IS THE BUFFER HIGH «DORESS. 

0 34TH WORD IS THE BYTE/RECORD/FILE COUNT. 


WRITE SU8-SYSTEM MEMORY CHARACTERISTIC BLOCK. 


0 31ST WORD:: SEL 0 
0 s2ND WORD:: SEL 2 
0 33RD WORD:: SEL 4 
EVEN 
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KTINIT = SETUP KT11 MEMORY MANAGEMENT REGISTERS SEQ 0111 
2941 + 
Soe 3 SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM 
2944 3 
945 : INPUTS: 
6 sOUTPUTS: 
2947 ete The NXMFLG is set if we can test. 
on . The NXMLO and NXMHI addresses are setup. 
2950 
2951 021266 MEMCK:: 
2953 021266 SAVREG SAVE THE REGISTERS 
2954 021272 005037 003132 CLR NXMFLG [CLEAR THE FLAG 
2955 021276 005037 003134 CLR NXMLO 3CLEAR THE TEST ADDRESS LO 
2956 021302 005037 003136 CLR NXMHI :CLEAR THE TEST ADDRESS HI 
2957 021306 005737 003142 TST 7238 31S IT A 11/238? 
2958 021312 001407 BEQ 1$ 
2959 021314 023727 002120 007777 CMP LSHIME ,#7777 : GREATER THAN 128K 
2960 021322 103406 BLO $ : NO 
2961 021324 004737 021442 JSR PC .NXMTST *SETUP THE ADDRESS 
021330 000427 BR 13$ “SET THE FLAG AND EXIT 
2963 021332 005737 003140 1$: TST T23A 21S IT A 11/23A? 
2964 021336 001413 BEQ 4$ NO 
2965 021340 023727 002120 005777 2$: CMP LSHIME ,#5777 GREATER THAN 96K 
2966 021346 101023 BHI 14$ S 234/238 | WITH 128K MEMORY 
2967 021350 023727 002120 003777 CMP LSHIME ,#3777 <GneAy ER THAN 64K BUT LESS THAN 92k? 
2968 021355 103403 BLO 4 NO CHECK 24K 
021360 004737 021442 JSR PC NXMTST SSETUP THE ADDRESS. 
2970 021364 000411 BR 13$ :SET THE FLAG AND EXIT 
021366 023727 002120 001577 4$: CMP LSHIME #1577 ZGREATER THAN 24K BUT LESS THAN 64k? 
2972 021374 103410 BLO 14$ 10, TELL THEM AND EXIT WITH FLAG CLEAR 
2973 021376 004737 021442 JSR PC .NXMTST ETUP THE A 
2974 021402 062737 000077 003136 ADD #77 ,NXMHI F608 THE 1/02 'y 11/03 
2975 021410 005237 003132 13$: INC NXMFLG ist THE F 
2976 021414 000411 BR 15$ x) 
2977 021416 000410 14$: BR 15$ ‘NOP FOR PRINTOUT 
2978 021420 PRINTF #NOMEM STELL THEM & EXIT ***NO PRINTeeee 
021420 012746 005454 MOV #NOMEM, (SP) 
021424 012746 000001 MOV #1,-(SP) 
021430 010600 MOV SP,R 
021432 104417 TRAP _— CSPNTF 
021434 062706 000004 ADD #4,SP 
2979 021440 000207 15$: RTS PC : RETURN 
2980 
2981 
2982 3+ 
Soar ; SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING 
o98s S OUTPUTS :NXMLO,NXMHI :SETUP WITH NXM ADDRESS 
5988 - 
2989 021442 013701 002120 NXMTST: MOV LSHIME ,R1 :GET TOP OF MEMORY 
2990 021446 062701 000200 ADD #200,R1 :MAKE IT 1/0 BLOCK OR OTHER NXM 
2991 021452 042701 000177 BIC #177, RI 
2992 021456 010102 MOV R1,R2 :RESAVE RESULTS 





| TSV3_= GLOBAL AREAS 


MACRO M1113 25=MAY-82 08:41 PAGE 69-1 


KTINIT = SETUP KT11 MEMORY MANAGEMENT REGISTERS 


2993 


2996 021474 


3007 021536 


060006 


010137 003134 
000012 


042702 1777C0 
a abet 4 003136 





eREPT 6 
SL R1 
-ENDR 
Vv R1,NXMLO 
eREPT 10. 
ASR R2 
-ENDR 


BIC #177700,R2 
MOV  Sataay 


ENDMOD 


9 


sPUT IN PLACE FOR XFER 
SAVE TEST ADDRESS LOW 
sPUT IN PLACE FOR XFER 


ON'T WANT ILA 
:SAVE TEST ADDRESS HIGH 
; RETURN 


SEQ 0112 


antenna 
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KTINIT = SETUP KT11 


021536 
021536 


Co COON 


1 
1 





SE 
ME 
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MORY MANAGEMENT REGISTERS 


~TITLE TSV4 = MISCELLANEOUS SECTIONS 


BGNMOD TSV4 
TSV4:: 





SEQ 0113 


pala a aang Ga ea eps Sh es. 


Sv4 = mike SECTIONS MACRO M1113 25=MAY=-82 08:41 PAGE 72 





PROTECTION TABLE SEQ 0114 
18 -SBTTL_ PROTECTION TABLE 
19 021536 BGNPROT 
021536 LSPROT:: 
20 021536 177777 177777 177777 WORD =1, -1, 1, =1 :NO DEVICE PROTECTION REQUIRED. 
$3 15 ENDPROT 


| L 9 
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INITIALIZE SECTION SEQ 0115 
$ -SBTTL INITIALIZE SECTION 
26 r+4 
27 THE INITIALIZE SECTION yt THE CODING THAT IS PERFORMED 
ss sAT THE BEGINN<NG OF EACH PASS. 


TIF “START OR “RESTART, SET QUICK=PASS FLAG AND BUS-INIT. 
31 SIF CONTINUE’, NOTHING iS REQUIRED. 


3+ 
: INSERT TEMPORARY JUMP TO ODT 


021546 BGNINIT 
021546 LSINIT:: 
021546 005037 002224 40$: CLR EXTFEA 
021552 005037 003132 CLR NXMFLG 
021556 012737 006354 002176 MOV #EPRT1,EPRTSW ;SET UP PRIMARY ene FOR REPLACEMENT 
021564 005037 003150 CLR SIFLAG. sCLEAR ‘SOFT INIT’ 
021570 005037 003130 CLR KTENABLE sCLEAR TEST ABOVE oBk 
021574 005037 002300 CLR RAMS1Z sCLEAR RAM SIZE FOR RARER ROUTINE 
021600 a" #EF . CONTINUE 
021600 012700 000036 #EF . CONTINUE ,RO 
021604 104447 CSREFG 
45 021606 BNCOMPLESE 1$ 
021606 103023 BCC 
46 021610 023737 002200 002012 CMP UNITN,LSUNIT UNIT IN RANGE? 
47 021616 103070 BHIS 4$ 3 " 
48 021620 005737 003106 TST a ;DROPPED UNIT? 
49 021624 100472 BMI BR IF YES 
50 021626 013701 002200 MOV uNITH, R1 
51 021632 006301 ASL 
52 021634 005761 003172 TST ERTABL (RI) 
53 021640 001516 BEQ SETU 
54 021642 032761 040000 003172 BIT #B81T14,ERTABL(R1) : DROPPED? 
55 021650 001060 BNE NXTU t 
56 021652 EXIT INIT 7D0 NOTHING IF ‘‘CONTINUE’’. 
021652 104432 TRAP CSEXIT 
021654 eWORD 1L10030-. 
57 021656 1$: READEF #EF .NEW 
021656 012700 000035 + #EF .NEW,RO 
021662 104447 CSREFG 
58 021664 BNCOMPLETE NXTU ;TAKE NEXT UNIT IF NOT NEW PASS. 
103052 BCC XTU 
59 021666 — a WEF START 
021666 orerye 000040 #EF .START,RO 
021672 104447 TRAP C$REFG 
60 021674 BCOMPLETE 2$ 
021674 103404 BCS 
61 021676 ad #EF RESTART 
021676 012700 000037 #EF .RESTART,F.O 
021702 104447 TRAP cSREF G 
62 021704 BNCOMPLETE 31$ 
021704 103031 BCC 31$ 
63 021706 2$: 71ST PASS, BUS-INIT... 
64 021706 BRESET [BUS RESET. 
021706 104433 TRAP CSRESET 
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INITIALIZE SECTION SEQ 0116 
65 021710 005037 002212 CLR TSTCNT :NUMBER OF TESTS RUN IN PASS 
66 021714 005037 002220 CLR FATFLG = CLEAR FATAL ERR ERRO R COUNT 
67 021720 005037 003140 CLR T23A SCLEAR 11/2 
68 021724 005037 003142 _ CLR 1238 [CLEAR 11/238 Fag 
69 : MOV #340,-(SP) 

70 : MOV #208, (SP) sRETURN TO DEBUGGER 
71 : JMP 0.0DT :@@ENTER THE DEBUGGER 
ie 021730 005037 003374 a CLR SKIPT :CLEAR THE SUBTEST ''SKIPPER'’ 
74 021734 012737 177777 002202 MOV #~1,0 :..eQUICK VERIFY... 
75 021742 004737 020620 JSR PC, ENVIRN ‘SET ENVIRONMENT. 
76 021746 004737 021044 JSR PC-KTINIT SINITIALIZE KT MEMORY MANAGEMENT 
77 021752 012700 003172 MOV #ERTABL .RO 
78 021756 005020 30$: CLR (RO) + ZCLEAR THE ERROR TABLE 
79 021760 020027 003372 CMP RO, MERTABE 
80 021764 103774 BLO 30$ 
81 021766 000404 . BR 4$ 
82 021770 005037 002202 31$: CLR Qvp 
.: 021774 000137 022044 JMP PASRPT 3:GO REPORT THE STATUS 
85 022000 4$: 
86 022000 012737 177777 002200 NEWPAS: MOV #-1,UNITN s INIT UNIT NUMBER. 
87 022006 005037 002216 CLR DEVCNT [CLEAR COUNT OF DEVICES RUNNING 
88 022012 NXTU: BREAK 
022012 104422 TRAP  C$BRK 
89 022014 005237 002200 INC UNITN z...AND SET NEXT UNIT NUMBER. 
90 022020 023737 002200 002012 CMP UNITN,LS$UNIT 
91 022026 103423 BLO 
92 022030 012737 177777 003106 MOV #~1,DUFLG 
93 022036 000401 BR 11$ 
2040 DOCLN ;ABORT, NO MORE UNITS. 
022040 104444 TRAP — C$DCLN 
95 022042 000240 11$: NOP 
96 022044 PASRPT: 
97 022044 023727 002012 000001 CMP LSUNIT, "1 yHOW MANY UNITS SELECTED? 
98 022052 101752 BLOS § NEWPAS [BR IF ONLY 1 
99 022054 005737 002216 TST DEVCNT TARE ANY STILL RUNNING? 
100 022060 001747 BEQ NEWPAS ‘BR IF NO 
101 022062 RFLAGS RO 
2062 104421 CSRFLA 
102 022064 032700 000100 BIT #ISR,RO ;SHOULD WE PRINT STATISTICS 
103 022070 001343 BNE NEWPAS ‘BR IF NO 
105 022072 DORPT 
0220 re 104424 TRAP — C$DRPT 
106 022074 000741 BR NEWPAS 
107 055096 10$: 
109 022076 SETU: GPHARD UNITN.RO :GET UNIT N P=TABLE POINTER. 
022076 013700 002200 MOV UNITN.RO | 
022102 104442 TRAP —_ C$GPHRD 
110 022104 BNCOMPLETE NXTU 7BR IF UNIT NOT AVAILABLE. 
022104 103342 BCC NXTU 
111 022106 005037 003106 CLR DUFLG ICLEAR "DROPPED" FLAG. 
112 022112 005237 002216 INC DEVCNT 
113 022116 012001 ; MOV (RO)+,R1 3GET 1ST REGISTER ADDRESS. 
114 022120 010137 002204 MOV R1,CSRADDR ZADDRESS OF REGISTERS OF UNIT UNDER TEST 





TSV4 = MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 


022124 012001 


022126 010137 002206 
022132 012721 016206 
022136 013721 002210 


022142 013701 002200 
022146 006301 
022150 052761 100000 
022156 005037 005766 
022162 023727 002012 
022170 101416 


17 
022172 104421 
8 022174 032700 001000 
9 022200 001412 


022202 013746 002200 
022206 012746 022274 
022212 012746 000002 


WR — SO OONAUSWN $C VONOu 


ak aS ee me ee me nd ed et od 2 ed = 20“ ws wd ot I 
ww 
N 
=] 
Nm 
Nm 
~ 


000006 


142 022226 005037 003110 
oF 022232 013701 002204 


145 022240 062702 000002 
146 022244 004737 016366 


147 
148 022252 010137 003110 
149 022256 012737 177777 


022264 012700 000000 
022270 104441 


156 022272 104411 
157 022274 045 116 
158 





1$: 
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(RO)+,R1 
(RO) ,R2 
R2,IPRI 
R1,1VEC 
#INTR,(R1)+ 
IPRI,(R1)+ 


QvP 
5$ 


GET VECTOR ADDRESS. 

:GET INTERRUPT od pg 

SET INTERRUPT PRIORITY. 

3SET INTERRUPT VECTOR POINTER... 


ECTOR.. 
SII TAND PRIORITY. 


31ST PASS ? 
NO, SKIP THE PASS 1 STUFF. 


11ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND 
; THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 


003172 
000001 


003106 


UNITN,R1 
R 


E 
AZUMI 68 


#PUNIT ,UNITN 


UNITN,=(SP) 


#PUNIT ,=(SP) 


#2,-(SP) 
SP,R 
CSPNTF 
#6,SP 
ODEV 
CSRADDR, R1 
R1,R2 
#TSSR,R2 
BC. XNKM 


$ 
R1,NODEV 
#-1,DUFLG 


77a haat 


sSAY DEVICE RUNNING 

“CLEAR ERROR EXTENSION FLAG. 
TARE WE TESTING MULTIPLE UNITS? 
SYES == GET OPERATOR FLAGS. 
SHOULD WE PRINT UNIT #2 


: NOT. 
PRINT THE UNIT # 


sADDRESS OF FIRST REGISTER 
sSTA ART OF REGISTERS 
zADDRESS OF TSSR REGIST ER 


TEST BOTH CONTROLLER REGISTERS... 


.-eAND BR IF ALL 
FLAG DEVICE AS NON-EXISTENT 
DROP THIS UNIT. 


SFINALLY, SET CPU PRIORITY AND WE'RE DONE. 


és: 


045 PUNIT: 


aes 


” TRAP 
-ASCIZ /UNINZAt*H*® TESTING UNIT %D2%A teeee/ ‘ 


#PRI00 


CSINIT 


ENABLE INTERRUPTS. 


SEQ 0117 


— 


TSV4 = MI 
ADD 


nm 


Oe a td ot 
POPPoRPePoN 
PoPoKonoensnoenry 


NISSK GEAF 
oooooSoO 
RMR 


ooo 
horn 
rrr 


RTT aaa y 


ee oe to ss ss ot SH 
BRASLS SBLKARASALSSS 


SCELLANEOUS SECTI 
DROP UNITS SECTION 


ms 


104452 


100000 003172 


040000 


022410 
000002 


000006 


116 


177777 


140000 
000240 


022514 
000002 


000006 


003172 


045 


003106 


003172 
000240 





8 10 
oe MACRO M1113 25-MAY-82 08:41 PAGE 74 


ge 
: 


SEQ 0118 
-SBTTL ADD AND DROP UNITS SECTIONS 

$ 

THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 


TO BE (A) ADDED TO THE TEST LIST FOR THE FIRST TIME, 
OR (B) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 


Pe BGNAU 
MOV RO,R1 : GET UNIT TO BE ADDED (RO) 
ASL R1 : MAKE IT A WORD INDEX 
BIS #100000, ERTABL (R1) : SET THE “ACTIVE BIT 
BIC #40000, ERTABL(R1) ; CLEAR THE "DROPPED'’ BIT 
PRINTF #1$,RO 
MOV RO,=(SP) 
MOV #1$,-(SP) 
MOV #2,-(SP) 
MOV SP,RO 
TRAP  CSPNTF 
ADD #6,SP 
EXIT 
«WORD JMP 
;WORD 1L10031-2-, 
1$: eASCIZ /%N%A UNIT %D%A ADDED/ 
EVEN 
ENDAU : UNUSED. 
L10031: 
TRAP  CSAU 
3 + 
; THE DROP=UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
+ TO BE REMOVED FROM THE TEST LIST. 
; SUPVSR DOES THE ‘DROPPING’. THIS IS JUST TO TELL THE MAN. 
3 DROPPED’ UNITS ARE RE-SELECTED ON OPERATOR ‘STA’ OR “‘ADD'’ 
3 COMMAND, OTHERWISE REMAIN INACTIVE. THE ‘DISPLAY’’ COMMAND 
; WILL PRINT ALL DROPPED UNITS, AND THE P=TABLES OF THOSE 
> WHICH ARE STILL ACTIVE. 
; UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED. 
BGNDU 
L$DU:: 
Mov #~1,DUFLG 
MOV RO,R1 
ASL R1 
BIS #140000, ERTABL(R1) : SAY DROPPED 
240,240,240 : 22222222? 
PRINTF -#1$,RO 
MOV RO,-(SP) 
MOV #1$,-(SP) 
MOV #2,-(SP) 
MOV SP‘RO 
TRAP _— CSPNTF 
ADD #6,SP 
EXIT DU 
.WORD J$JMP 
eWORD 1L10032-2-. 
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ADD AND DROP UNITS SECTI SEQ 0119 





197 022514 045 116 045 1$: ASCIZ /4N%A UNIT %D%A DROPPED/ 
199 022544 ENDDU 
022564 L10032: 
022544 104453 TRAP C$DU 
soe 
201 : AUTO=DROP CODE SECTION. 
$8 022546 BGNAUTO 
osSece LSAUTO:: 
022546 013705 002204 MOV CSRADDR,RS POINT T9 DEVICE REGISTER 
205 022552 012703 000550 MOV #360. ,R3 TENOUGH TIME FOR 2400° REEL TO REWIND 
ossec5 004737 016240 10$: JSR PC WAI TF SWAIT FOR SSR oF SET 
207 022562 103420 BCS 20$ [LEAVE WHEN SSR IS SET 
225646 DELAY 250. [WAIT FOR .25 SECONDS 
2564 012727 000372 MOV #250. ,(PC)+ 
022570 000000 ,WORD 0 
022572 013727 002116 MOV LSDLY,(PC)+ 
022576 000000 . WORD 
022 005367 177772 DEC -6(PC) 
022 001375 BNE - 
022606 005367 177756 DEC =22(PC) 
022612 001367 BNE .-20 
209 022614 005303 at Oe R3 :BUMP COUNTER DOWN 
022616 001357 BNE 10$ [KEEP GOING 
017172 208 JSR PC, CKDROP sTRY AND DROP UNIT 
ENDAUTO : UNUSED. 
L10033: 


TRAP CSAUTO 


cae bf 


p-——  Cre  e - 


TSV4 = MISCELLANEOUS SEC 
CLEAN-UP AND REPORT CODING SECTIONS 


236 022654 
237 022654 


249 0, 


013795 
005737 
100405 
012765 
004737 


104412 


FSLSS 
SLVES VN 
RRS a 
AAO ao 


oooo 

2 

ess 
SoS 


Se 
: 


Sslccs 

SRoue 

Sao Ne 
ao 


SN 
aS 


6 
7? 
2 
6 
6 
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002204 
003106 


000000 000002 
016240 


023116 
000001 


000004 


003172 


040000 
170000 


023153 
000003 


000010 
160000 


023223 





~SBTTL CLEAN-UP AND REPORT CODING SECTIONS 


? 


THE CLEANUP CODING SECTION a pace te THE Steg THAT IS 


; ; EXECUTED AT THE EN 


ND OF EACH 


(OR $ 


; _US E TO RETurn” DEVICE UNDER TEST TO A NEUTRAL STATE. 


BGNCLN 
LSCLEAN: : 
MOV 


TST 
BMI 
MOV 
JSR 
ENDCLN 
TRAP 


1$: 
2$: 
L10034: 


3 ++ 


CSRADDR RS 
DUFLG 

#0, TSSR(RS) 
PC ,WAITF 


CSCLEAN 


:POINT TO DEVICE REGISTER 
:"DROPPED" FLAG IS SET 

$eeAND GROSS CONTROLLER FAULT... 
»+.DON'T TRY TO XCT CLEANUP CODE 


D0 SOFT INIT 


: THE REPORT CODING SECTION CONTAINS THE 
: ‘PRINTS’ CALLS THAT GENERATE STATISTICAL REPORTS. 


LSRPT:: 


BGNRPT 
a. 


1$: MOV 


2$: CMP 


caiviies 


4.2 
#ERTABL, RG 
(R4) ,R2 
4% 


4$ 
#B1T14,R2 


#*C7777,R2 
SOEVOML -RS.R2 


4$ 
R2,#160000 
#DEVNXR, RS 
#DEVNXR,-(SP) 


GET START OF —— TABLE. 
CLEAR UNIT NUMBER 


GET ERROR TABLE ENTRY & TEST IT. 
RUN 


ZERO IF UNIT NOT 
WAS UNIT DROPPED? 
IF YES 
GET ERROR COUNT FIELD 
PRINT 


WAS UNIT NON-EXISTENT? 
BR IF NO 


SEQ 0120 
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CLEAN-UP ONS 


AND REPORT CODING SECTI 


012746 
0 


000002 


000006 
160001 


023305 
000002 


000006 
170000 
023366 
000003 
000010 


000002 
003372 


3$: 


30$: 


4$: 


L10035: 


DEVDRO: 


MOV 
MO 


MOV 


TRAP 


ENDMOD 


#2,°(SP) 


CSPNTS 
#6,SP 


Ge Wieser 
#DEVNRD . R3 


3 WAS UNIT NOT READY AT STARTUP? 
BR IF NO. 


#*C7777,R2 
#DEVDRO RS, oR2 


R 
R4 ,MERTABE 
1$° 


(SP)+,R4 
(SP)+, *R3 
(SP)+, *R2 
3 UNUSED. 


CS$RPT 


/ZNZADEVICE STATUS SUMMARY: 2N/ 

/%A UNIT Z03ZA ONLINE, ER RORS = 2DZN/ 

DROPPED, NON-EXISTENT REGISTERN/ 
DROPPED, NOT READY AT STARTUPZN/ 


/%A UNIT %D3%A_ DROPPED, ERRORS = %D%N/ 





SEQ 0121 
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CLEAN-UP AND REPORT CODIN: SECTION 


«TITLE TSVSA = HARDWARE TESTS 


023436 BGNMOL TSV5 
023436 TSV5:: 


SEQ 0122 
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TEST 1: BUS RESET TEST SEQ 0123 





| 
| 26 .SBTTL TEST 1: BUS RESET TEST 
28 
29 ; THIS TEST VERIFIES THAT THE 7196 MODULE °S DEVICE REGISTERS ARE 
30 : ACCESSIBLE ON THE BUS (SUBTEST 1) AND THEN CHECKS THE 
31 ; BUILT-IN INITIALIZATION a MICRODIAGNOSTIC pip lar FIND 
32 ; ANY BASIC PROBLEMS IN THE MODULE . AREAS OF LOGIC TESTED BY THE 
33 : SELF-TEST SEQUENCE ARE AS FOLLOWS: ROM AND PIPELINE REGISTER. 
34 ; SEQU UENCER, INTERNAL BUSES, 3504 MICROPROCESSOR THI 
35 : TEST INITIALIZES THE CONTROLLER BY ISSUING THE ‘ous INIT SIGNAL 
36 ; VIA A RESET INSTR UCTION, OR BY WRITING INTO THE TSSR REGISTER, 
37 : WAITS A PERIOD OF TIME (TO ALLOW THE CONTROLLER'S INITIALIZATION 
38 : MICRODIAGNOSTIC SEQUENCE TO BE COMPLETED), AND THEN CHECKS THE 
39 : CONTENTS OF THE TSSR REGISTER. SUCCESSFUL INITIALIZATION IS 
40 ; INDICATED BY SUBSYSTEM READY (SSR) AND NEED BUFFER ADDRESS (NBA) 
41 ; BITS BEING SET (1) AND ALL OTHER BITS (EXCEPT A17 AND A16 AND 
42 ; OFL, WHICH ARE IGNORED FOR THIS TEST) BEING CLEAR (0). IF THE 
43 ; CONTENTS OF TSSR ARE NOT AS EXPECTED, AN ERROR REPORT IS ISSUED 
44 : LISTING THE EXPECTED DATA, FACTUAL DATA, AND THE DISCREPANCIES. 
45 : THE ERROR REPORT ANALYZES THE TSSR CONTENTS AND DISCERNS AND 
46 ; REPORTS ONE OF THREE POSSIBILITIES: 
48 : 
49 : 1. TSSR CONTENTS ARE AMBIGUOUS (ANY OF BITS 11-14 ARE SET. 
50 : OR STATES OF SSR AND SC BITS DO NOT CORRESPOND TO THE 
51 : APPARENT ERROR CODE IN BITS 0-5): INDICATES THAT THE 
52 : TSSR CONTENT CANNOT BE TRUSTED. INDICATES A 
53 : CATASTROPHIC CONTROLLER MALFUN UNCTION. THIS IS A FATAL 
54 : ERROR (EXECUTION IS ABORTED). ACTION WOULD BE TO 
55 3 REPLACE THE M7196. IF THE n7196" wee 1S BEING 
56 : DEBUGGED, THE PROGRAM SHOULD BE RESTARTED WITH LOOP ON 
37 ; ERROR ENABLED IN ORDER TO PROBE FOR THE PROBLEM. 
59 : 2. SSR = 0, SC = 0 AND THE ERROR CODE IN pits 0-5 IS ols 
60 : THE RANGE 17-13: THIS IS A FAT HE ERROR 
61 : CODE 1S DECODED AND THE APPROPRIATE DESCRIPTION GIVEN. 
62 ; INDICATES THAT A SERIOUS PROBLEM EXISTS. 
64 
65 023436 BGNTST aa 
70 023436 012700 023634 MOV #TST1ID,RO ZASCII MESSAGE 10 IDENTIFY TEST 
71 023442 004737 016500 JSR PC, TSTSETUP :D0 INITIAL TEST SETUP 
72 023446 012737 000024 002214 MOV #20. ,LOOPCNT [PERFORM 20 ITERATIONS 
73 023454 TILOOP: 
oh 023454 005003 CLR R3 ZUSE R3 AS FATAL ERROR FLAG 
7% 023456 BGNSUB VII BEGIN SUBTEST Uses 
; 023456 104402 TRAP  C$BSUB 
78 023460 BRESET ZISSUE A BUS RESET 
023460 104433 TRAP  CS$RESET 
79 023462 004737 016240 JSR PC,WAITF :WAIT FOR READY 
80 023466 016501 000002 MOV TSSR(R5) RI *GET THE CONTENTS OF TSSR 
81 023472 010102 MOV R1,R2 :CONTENTS OF TSSR 
82 023474 042702 176277 BIC #°C<HIADDR!OFL>,R2 STHESE BITS MAY BE SET 













ee eee 
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TEST 1: BUS RESET TEST 
83 023500 052702 002200 BIS #SSR!NBA,R2 sREADY AND NEW DATA SHOULD BE SET 
84 023504 0201 Oe CMP R1,R2 sCOMPARE EXPECTED TO RECEIVED 
85 023506 00140 6EQ 10 ZBRANCH IF COMPARE 
89 023510 ERRDF  ERRNO,SFHERR,SFFMSG TREPORT A FATAL ERROR 
023510 104455 TRAP CSEROF 
023512 000145 WORD 101 
023514 003701 WORD SFHERR 
023516 BESTE: «WORD SFFMSG 
023520 00520 INC R3 SET THE FATAL ERROR FLAG 
1 023522 10$: 
023522 ENDSUB s\ANANANANANAN END SUBTEST \NANANAAAAAAN 
023522 L10037: 
023522 104403 TRAP CSESUB 
ow) 
4 
J 
PF 
& 
2 
7 


SEQ 0124 


ay al 
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1: BUS RESET TEST 


95 og 33se 


= 
So 
= 
ioe 
An 
SRS 


pert ++ + + + 
ROSRVERRAS 


NVM 
es 
RUAWN =O O00 


005703 
001402 
004737 
005003 


117 


104401 


017172 


000002 
016240 
000002 


176277 
002200 


017172 
016446 


023454 


156 


151 


I 10 
TST 
BEQ cus 
JSR PC, CKDROP 
208: CLR R3 
BGNSUB 


CLR TSSR(RS) 
JSR PC ,WAITF 
MOV TSER{RS), oR1 


R 
BIC #*C<HIADDR!OFL>, R2 
BIS #SSR!NBA,R2 
MP R1,R2 


10 
ERRDF ERRNO,SFIERR,SFFMSG 


INC R3 
10$: 

ENDSUB 

TST R3 

BEQ 20$ 

JSR PC,CKDROP 
20S: JSR PC, TSTLOOP 

BCC 40$ 

JMP T1LOOP 


40S: EXIT TST 


i+ 
sLOCAL TEXT MESSAGES FOR TEST 


TST1ID: nets *Initialization’ 
ENDTST 





DID WE HAVE FATAL ERROR ? 
BRANCH IF NOT 

GO DROP THIS UNIT, IF ALLOWED 
RESET FATAL ERROR FLAG 


SIIVIITITTTTL BEGIN SUBTEST /////AIIII11 
"TRAP ss C$BSUB 
WRITE TO ISSUE A SOFT RESET 
[WAIT FOR READY TO SET 
GET REGISTER TSSR DATA 
= CON TSSR 


ET 

é A SHOULD BE SET 

: COMPARE EXPECTED. TO RECEIVED 

BRANCH IF COMPARE 

REPORT A FATAL ERROR 

TRAP ue 


WORD 

-WORD SFIERR 
D SFFMSG 

3SET THE ERROR FLAG 


s\VANVANANANNA END SUBTEST \AN\AAAAAAAAAN 
L10040: 
TRAP CSESUB 


sFATAL ERROR DETECTED ? 
BRANCH IF NOT 
SEE IF TIME TO DROP UNIT 
ZSHOULD WE DO ITERATIONS ? 
BRANCH IF NOT 
LOOP UNTIL COUNT EXPIRED 
sALL DONE THIS TEST 
TRAP CSEXIT 


-WORD 110036-. 


L10036: 
TRAP CSETST 
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TEST 2: WRAP DATA = HIGH BYT 


RE w 
RALWU=SSH 6 


ee 
Ue 
owoon 


NNN wi vi“ 


SQOoooooooooceco 


MOPQPONMONMINPINSPONNoNoNngNny 


oS 
Nm 
s 
N 
So 


024324 
016500 
000024 


177777 


015764 


002220 


002214 


@ Be Se Se Ge Se Ge Se Be Be Se Ge Ge Be Ge Se Be Ge Ge Ge Ge Ge Ge Ge Se Be Se Be Ge Se 


T2LOOP: 


5$: 


10$: 


PAGE 80 
-SBTTL TEST 2: WRAP DATA = HIGH BYTE 
THIS TEST VERIFIES OPERATION OF: 


1. PART OF THE LS1-11 BUS le hay fase un OF THE M7196 

:_ PART OF THE INPUT FILE (¢ HIGH BYTE), PART 

OF THE OUTPUT on tn (TSSR_HIGH BY iL SAND TSBA, BOTH 
F THE DCOOS TRANSCEIVER CIRCUITS (ADDRESS 

DECODER, BDAL OORI VERS: HIGH BYTE OF INTERNAL DA 

yoo | VERS)» AND BASIC PROGRAMMED I/0 CONTROL SEQUENCES 


2. PART OF 2901 MICROPROCESSOR ELEMENTS (Q-REGISTER, 
REGISTER 0, ROTATE AND NEGATE FUNCTIONS; 


3. Y AND SOURCE BUSES; 
4. BASIC MICROPROGRAM SEQUENCES. 


THE PROGRAM WRITES A_TEST DATA BYTE INTO THE HIGH BYTE OF TSDB, 
WAITS ae THE SSR BIT IN _TSSR TO SET, THEN CHECKS THE CONTENTS 
OF BOTH TSBA AND TSSR. THE warre 1§ FUNCTIONING CORRECTLY IF 
DATA WRITTEN APPEARS IN BOTH AND THE F 


C 
AN ERROR IS ~e-" AND A DESCRIPTIVE ANALYSIS GIVEN 
IF A DISCREPANCY IN TSBA OR TSSR DETECTED. THE ANALYSIS 
LISTS LIKELY FAULTY CANDIDATES FROM THE LOGIC ELEMENTS LISTED 
ABOVE. THE TEST IS REPEATED FOR ALL COMBINATIONS OF TEST DATA 
BYTES (0-377 OCTAL). 


BGNTST a 

MOV #TST2I1D,RO ZASCII MESSAGE To IDENTIFY TEST 

JSR PC, TSTSETUP :D0 INITIAL TEST SETUP 

MOV #20. ,LOOPCNT [PERFORM 20 ITERATIONS 

CLR R SSTARTING DATA PATTERN 

MOV #-1,R3 [D0 INIT ON FIRST TIME THROUGH 

TST R3 [D0 WE NEED SOFT INIT 

BEQ 10$ ZBRANCH IF NOT 

CLR R3 [DON'T NEED INIT NEXT TIME THRU 

JSR PC, SOFINIT [D0 SOFT INIT OF CONTROLLER 

BCS 10$ ‘BR IF SOFT INIT = OK 

MOV RO,R1 SAVE CONTENTS OF TSSR 

ERRDF ERRNO, SFIERR,SFIMSG SDEVICE FATAL ERROR DURING INIT 
TRAP CSERDF 
«WORD 201 
“WORD SFIERR 
-WORD  SFIMSG 

INC R3 ZFORCE SOFT INIT ON NEXT PASS 

CLR FATFLG [CLEAR FATAL ERROR FLAG 

BGNSEG j>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 


SEQ 0126 
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TEST 2: WRAP DATA = HIGH BYTE SEQ 0127 
mn 023736 164404 TRAP  C$BSEG 
198 023740 110465 000001 MOVB = R4, TSDBH(RS) :SET MAINT MODE | + WRITE DATA 
199 023744 004737 016240 JSR PC WAITF ‘WAIT FOR SSR TO SET 
200 023750 103411 BCS 15$ toR IF CARRY SET «G00 RETURN) 

201 023752 010001 MOV RO,R1 :SAVE CONTENTS OF TSSR 

202 023754 010402 MOV R4,R2 “DATA THAT WAS WRITTEN 

206 023756 ERRDF ERRNO, T2SSR,EXPREC :DEVICE FATAL SSR FAILED, TO SET 
023756 104455 TRAP CSERDF 

000312 «WORD 202 

023762 024252 -WORD T2SSR 
023764 015464 -WORD EXPREC 

207 023766 005203 INC R3 ZFORCE SOFT INIT ON NEXT PASS 

208 023770 005237 002220 INC FATFI.G TSET FATAL ERROR FLAG 

209 023774 15$:  CKLOOP ‘LOOP ON ERROR, IF FLAG SET 
023774 104406 TRAP  C$CLP1 

210 023776 005737 002220 TST FATFLG ZWAS FATAL ERROR RECEIVED ? 

211 024002 001402 BEQ 20$ [BRANCH IF NOT 

212 024004 017172 JSR PC, CKDROP 7SEE IF TIME TO DROP UNIT 

213 024010 010402 20$: MOV R4,R2 :DATA PATTERN WRITTEN 

214 024012 042702 177774 BIC #*C<BITO!BIT1I>,R2 ZCLEAR ALL BUT LOW 2 BITS 

215 024016 000302 SWAB sR :BITS 8 AND 9 HAVE LOW DATA BITS 

216 024020 052702 002200 BIS #SSR!NBA,R2 : THESE BITS MUST BE SET ALSO 

217 024024 016501 000002 MOV TSSR(R5).R1 :GET THE CONTENTS OF TSSR 

218 024030 032701 000100 BIT #OFL,R1 1S OFF=L INE a SET ? 

219 024034 001402 BEQ 25$ ; ZBRANCH IF NOT OFF-LINE 

220 024036 052702 000100 BIS #OFL,R2 ‘ SET OFFELING IN EXPECTED DATA 

221 024042 020201 25$: CMP R2,R1 io [DOES EXPECTED MATCH RECEIVED ? 

222 024044 001405 BEQ 30 SOKAY IF MATCH 

226 024046 ERRHRD ERRNO, T2TSSR,EXPREC ‘TSSR WASN'T CORRECT 
024046 104456 TRAP  CSERHRD 
024050 000313 «WORD 203 
024052 024205 .WORD  T2TSSR 
024054 015464 .WORD EXPREC 

227 024056 005203 INC ZFORCE SOFT INIT CN NEXT PASS 

228 024060 30$:  CKLOOP SLOOP ON ERROR ? 
024060 104406 TRAP — CS$CLP1 

229 024062 016501 000000 MOV TSBA(RS),R1 3GET TSBA REGISTER CONTENTS 

230 024066 005002 CLR R : 

231 024070 150402 BISB R4,R2 SDATA PATTERN WRITTEN 

232 024072 000302 SWAB sR :MOVE INTO TOP BYTE 

233 024074 150402 BISB = R4,R2 [BOTH HALVES SHOULD BE SAME 

234 024076 020102 CMP A1.R2 [COMPARE EXPECTED TO RECEIVED 

235 024100 001405 BEQ 35$ TERROR IF NOT EQUAL 

239 024102 ERRHRD ERRNO, T2TSBA,EXPREC SPRINT THE ERROR & EXPD/RECV 
024102 104456 CSERHRD 
024104 000314 TeORD 204 
024106 024140 “WORD T2TSBA 
024110 015464 -WORD EXPREC 

240 024112 005203 INC R3 ZFORCE SOFT INIT ON NEXT PASS 

242 024114 35$: ENDSEG BORK KEKK KKK END SEGMENT <<<<<<Ee<<<<< 
024114 10000$: 

- 024114 104405 TRAP CSESEG 

244 024116 105204 INCB RG ZNEXT DATA PATTERN TO TEST 

245 024120 001270 BNE 5 3BRANCH TILL BACK TO ZERO 
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TEST 2: WRAP DATA = HIGH BYTE SEQ 0128 
246 024122 004737 016446 JSR PC, TSTLOOP sSHOULD WE DO ITERATIONS ? 
247 024126 10300 Bcc «408 ZBRANCH IF NOT 
248 024130 000137 023674 JMP T2LO00P :LOOP UNTIL COUNT EXPIRED 
249 024134 40$: EXIT TST sALL DONE THIS TEST 
024134 104432 TRAP = CSEXIT 
024136 000214 «WORD 110041-. 
250 
281 +4 
S26 sLOCAL TEXT MESSAGES FOR TEST 
254 ‘ 
255 024140 124 123 106 T2TSBA: .ASCIZ ‘TSBA Incorrect After TSDB High Write’ 
256 024205 124 123 123 T2TSSR: .ASCIZ ‘TSSR Incorrect After TSDB i Write’ 
257 024252 116 157 040 T2SSR: .ASCIZ ‘No Sub-System Ready After TSDB High Write’ 
$28 024324 127 162 141 TST2ID: a ‘Wrap Data - High Byte’ 
260 024352 ENDTST 
024352 L10041: 
024352 104401 TRAP CSETST 


261 
262 
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TEST 3: WRAP DATA = LOW BYTE SEQ 0129 

264 .SBTTL TEST 3: WRAP DATA = LOW BYTE 

266 : THIS TEST FURTHER VERIFIES OPERATION OF MANY OF THE SAME 

267 ; ELEMENTS TESTED IN TEST 2, AND ADDITIONALLY VERIFIES: 

269 : 

370 : 1. LOW BYTE OF THE TSDB INPUT FILE REGISTER, 

272 ; 2. LOW BYTE OF INTERNAL DAL BUS DRIVERS ON THE DC00S 

308 : TRANSCEIVER CIRCUITS, 

46) : 3. BASIC FUNCTIONING OF PARTS OF THE RAM. 

$8 | 

279 : THE PROGRAM WRITES A TEST DATA BYTE INTO THE LOW BYTE OF TSDB. 

280 : WAITS FOR THE SSR BIT IN TSSR TO SET, THEN CHECKS THE CONTENTS 

281 : OF BOTH TSBA AND TSSR. THE MODULE IS FUNCTIONING CORRECTLY IF 

282 : DATA WRITTEN APPEARS IN BOTH BYTES OF TSBA AND THE FINAL CONTENT 

283 : OF TSSR 1S CORRECT (SAME AS AFTER INITIALIZATION EXCEPT FOR BITS 

284 : 8 AND 9, WHICH SHOULD CONTAIN BITS 8 AND 9 OF THE DATA PATTERN 

285 : WRITTEN. AN ERROR IS REPORTED AND A DESCRIPTIVE ANALYSIS GIVEN 

286 : IF A DISCREPANCY IN TSBA OR TSSR IS DETECTED. THE 

287 : Lists LIKELY FAULTY CANDIDATES FROM THE LOGIC ELEMENTS LISTED 

288 : THE ‘ REPEATED FOR ALL COMBINATIONS OF TEST DATA 

389 ; BYES” (0-377 BC TALS 

291 024354 BGNTST 
024354 T3:: 

296 024354 012700 025017 MOV #TST3ID,RO ZASCII MESSAGE TO IDENTIFY TEST 

297 024360 004737 016500 JSR PC, TSTSETUP :D0 INITIAL TEST SETUP 

298 024364 012737 b000e% 002214 MOV #20. .LOOPCNT [PERFORM 20 ITERATIONS 

299 024372 005004 T3LOOP: CLR RG ZSTARTING DATA PATTERN 

300 024374 012703 000001 MOV #1,R3 ‘FORCE SOFT INIT ON FIRST PASS 

301 024400 005703 S$: TST R3- ‘SET IF INIT IS REQUIRED 

302 024402 001412 BEQ 10$ SBRANCH IF NO INIT NEEDED 

303 024404 005003 CLR R3 ZASSUME NO INIT NEEDED ON NEXT LOOP 

304 024406 004737 015764 JSR PC, SOFINIT :D0 SOFT INIT OF CONTROLLER 

305 024412 103406 BCS 10$ :BR IF SOFT INIT = OK 

309 024414 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 

310 024416 ERRDF ERRNO, SFIERR,SFIMSG [DEVICE FATAL ERROR DURING INIT 
024416 104455 CSERDF 
024420 55 TEORD 301 
024422 003646 <WORD SFIERR 
024424 012024 <WORD SFIMSG 

311 024426 005203 INC R3 ZFORCE INIT ON NEXT PASS 

312 024430 005037 002220 10$: CLR FATFLG [CLEAR FATAL ERROR FLAG 

314 024434 BGNSEG 3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

oes 024434 104404 TRAP C$BSEG 

316 024436 110465 000000 MOVB = R4&, TSDB(RS) :SET MAINT MODE + WRITE DATA 

317 024442 004737 016240 JSR PC WAITF ‘WAIT FOR SSR TO 

318 0 BCS 15$ [BR IF CARRY SET (goop RETURN) 

319 MOV RO,R1 SAVE CONTENTS OF TSSR 


Vv R4,R2 3D HAT WAS WRITTEN 
ERRDF ERRNO, T3SSR,EXPREC ‘DEVICE FATAL SSR FAILED TO SET 


pega 
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024454 


4462 
325 ooccee 
326 024466 
327 024472 


| 
328 024474 
329 


455 
345 094864 
346 oSeaee 


347 024560 


024 
so5 024610 
360 024612 
024612 
‘ 024612 
362 024614 


005203 
104406 


001405 
104456 


104405 


105204 
001270 
004737 
103002 
000137 


104432 
000210 


002220 


002220 
017172 
177774 
002200 
000002 
000100 


000100 


000000 


016446 
024372 


15$: 


20$: 


25$: 


30$: 


35$: 


40$: 


INC 
INC 
CKLOOP 


B 
ERRHRD 


INC 
CKLOOP 


B 
ERRHRD 


INC 
ENDSEG 
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R3 
FATFLG 


FATFLG 
20$ 

PC, CKDROP 
#°CB1T01B1T1>,R2 


#SSR!INBA,R2 
TSSR(R5) ,R1 


#OFL,R2 
R2,R1 


30$ 
ERRNO, T3TSSR,EXPREC 


R3 


TSBA(RS) RI 
R2 

R4,R2 

R2 

R4,R2 

R1.R2 

35$ 

ERRNO, T3TSBA, EXPREC 


R3 


R4 

5$ 

PC, TSTLOOP 
T3L00P 

TST 


TRAP CSERDF 
«WORD 302 
WORD T3SSR 
«WORD EXPREC 
sFORCE INIT ON NEXT PASS 
SET THE FATAL ERROR FLAG 
LOOP ON ERROR, IF FLAG SET 
CSCLP1 


TRAP 
2DID WE + FATAL ERROR ? 
ANCH IF NOT 
DROP UNIT, IF wee 


cies ALL BUT LOW 2 BITS 
S_8 AND 9 HAVE a DATA BITS 


BRANCH IF NOT OFFLINE 
sSET OFF-LINE IN EXPECTED 
DOES WF latte MATCH RECEIVED ? 
ZOKAY IF MATCH 
:TSSR WASN'T CORRECT 
TRAP — 


- WORD 
-WORD TSTSSR 
«WORD EXPREC 
FORCE INIT ON NEXT PASS 
:LOOP ON ERROR ? 
TRAP CSCLP1 
3GET TSBA REGISTER CONTENTS 
:DATA PATTERN WRITTEN 
VE INTO TOP BYTE 
:BOTH HALVES SHOULD BE SAME 
COMPARE EXPECTED TO RECEIVED 
BR IF ERROR NOT EQUAL 
zPRINT THE ERROR & EXPD/RECV 
TRAP CSERHRD 
«WORD 304 
-WORD TS3TSBA 
EXPREC 


SFORCE INIT ON NEXT PASS” 
3RKKK KKK KKK END SEGMENT KEKKK KKK KKK KKK 

" TRAP = CSESEG 
er ea even of 


SHOULD WE DO ITERATIONS ? 
BRANCH IF 


NOT 
SLOOP UNTIL COUNT EXPIRED 


sALL DONE THIS TEST 
TRAP CSEXIT 
«WORD 110042-. 


SEQ 0130 





378 025044 
025044 
025044 104401 
79 
380 


3 LOCAL 


T3TSBA: 


T3S R: 
TSTSID: 
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TEXT MESSAGES FOR TEST 


*TSBA Incorrect After TSDB Low Write‘ 
*TSSR Incorrect After TSDB Low Write’ 

"No Sub-System Ready After TSDB Low Write’ 
‘Wrap Data - Low Byte’ 


L10042: 
TR 
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TEST 4: TEST SEQ 0132 
382 .SBTTL TEST 4: RAM TEST 
384 ; THIS TEST VERIFIES THAT ALL LOCATIONS OF THE RAM ON THE M7196 
385 : CAN PROPERLY STORE AND READ BACK ALL DATA PATTERNS, AND THAT 
386 : EACH RAM LOCATION IS UNIQUELY ADDRESSED (1.€., THAT ONE AND ONLY 
387 : ONE LOCATION IS ACCESSED BY ANY PARTICULAR ADDRESS). THESE 
388 : TESTS ARE PERFORMED BY THREE SUBTESTS. DESCRIBED BELOW. 
389 : BYPRODUCT OF THESE TESTS IS A VERIFICATION OF TWO REGISTERS IN 
330 ; THE 2901 AND THE CAPABLITY OF THE 2901 TO CORRECTLY PERFORM AN 
392 : : 
by) ; 
394 ; 
395 ; TEST 4 SUBTEST 1: - 
397 : THIS SUBTEST VERIFIES EACH RAM LOCATION BY FIRST PLACING THE 
398 : M7196 INTO MAINTENANCE MODE BY WRITING INTO THE LOW BYTE OF TSDe 
399 : AND THEN PERFORMING THE FOLLOWING SEQUENCE FOR EACH ADDRESS 
400 : 0=7777 (OCTAL): 
za | 
405 F 1. THE THE ‘ADDRESS: TO BE TESTED IS LOADED INTO THE TSDB (VIA A 
405 : 
406 : 2. THE ADDRESSED RAM LOCATION IS WRITTEN, THEN READ INTO 
407 : THE LOW BYTE OF TSBA, BY WRITING A DATA BYTE INTO THE 
408 : LOW BYTE OF TSDB. 
410 : 3. THE LOW BYTE OF TSBA IS CHECKED TO SEE IF IT CONTAINS 
411 : THE DATA PATTERN ORIGINALLY WRITTEN; A DISCREPANCY 1S 
42 : REPORTED AS AN ERROR. 
414 : 4. THE ADDRESS OF THE LOCATION BEING TESTED IS AGAIN 
415 : WRITTEN INTO TSDB (WORD WRITE), TO CAUSE THE LOCATION 
416 : UNDER TEST TO AGAIN BE READ INTO THE LOW BYTE OF TSBA. 
417 : THE LOW BYTE OF TSBA IS AGAIN CHECKED AND DISCREPANCIES 
418 : REPORTED. 
420 : 5. THE HIGH BYTE OF TSBA IS CHECKED; IT SHOULD CONTAIN 
421 3 THE SUM OF THE HIGH AND LOW BYTES LAST WRITTEN INTO 
422 : TSDB AS A WORD. A DISCREPANCY IS REPORTED AS A 2901 
495 : PROBLEM. 
425 : 6. THE CONTENT OF TSSR IS CHECKED; SETTING OF THE SC BIT 
426 : IS IGNORED. OTHER DISCREPANCIES IN TSSR ARE REPORTED. 
428 : 
429 025046 BGNTST 
a 025046 Té:: 
431 025046 BGNSUB SIIIITITITTTL BEGIN SUBTEST ////A/IIIUEI 
ma 025046 104402 -" TRAP ss C$BSUB 
437 025050 012700 026356 MOV #TST4ID,RO ZASCII MESSAGE TO IDENTIFY TEST 
438 025054 004737 016500 JSR PC, TSTSETUP [D0 INITIAL TEST SETUP 


429 025060 012737 000005 002214 MOV #5; LOOPCNT ;PERFOR® 5 ITERATIONS 











440 025066 
441 


men 
ooosf 


02 
467 025170 
468 025170 

025170 

025170 


469 

470 025172 

471 025174 

472 025200 

473 025202 
0252C2 


474 
475 025206 


482 34 
483 025236 


025246 
488 025250 
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3646 
012024 
005004 
004737 
105065 


104404 
110402 
004737 
010465 
004737 
110265 
004737 
016501 
120102 
001404 
104456 
000622 


026214 
015464 


L) " 
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015764 


016326 
000000 


016326 


010000 


076326 
090000 

016326 
000000 


T4LOOP: 


20$: 


25$: 


30$: 


40$: 


45$: 


Q 
ERRHRD 


ENDSEG 
INC 
MP 


BNE 
ESCAPE 


G 
ERRHRD 


CKLOOP 


PC,SOFINIT 
20$ 


RO,R1 
ERRNO, SF IERR, SF IMSG 


R4 
PC,CHKTSSR 
TSOB(RS) 


R4,R2 
PC, CHKTSSR 
R4, TSDB(RS) 


30$ 
ERRNO, TSBAM2 ,EXPREC 


R4 
Re #10000 


R2 

R4 

R4,R2 

PC, CHKTSSR 
R4, TSDB(RS) 


PC, CHKTSSR 
TSBACRS) RI 


45 
ERRNO, TSBAM2,EXPREC 


:D0 INITIALIZE ON CONTROLLER 
:BR IF INIT WAS OK 

sCONTENTS OF “TEsR REGISTER 
FATAL ERROR TSSR WAS ~ ae 


CSERDF 
MTOR 401 
«WORD SFIERR 

SF IMSG 


:SET RAM ADDRESS AT ZERO 
[WAIT FOR READY, NON-AMBIGUOUS 
SSET INTO MAINTENANCE MODE 


{>>>>>>>>>>>> BEGIN nou >>>>>>>>>>>> 
TRAP CS$BSEG 


eet ban DATA FROM WRAP-AROUND 
sWAIT FOR READY, ‘=UN-AMS1GU0US 
;LOAD ra ty INTO TSD% 

WAIT FOR READY, AMBIGUOUS 
LOADS DATA INTO RAM LOCATION 
WAIT FOR ath NON-AMB I GUOUS 


READS WRAP 


DOES WRITTEN(WRAP) = READ 
3BR THEY 


IF OK, ARE EQ UAL 
DATA NOT WRAPPED CORRECTLY 
4 > ae 


-WOR 
“WORD  TSBAM2 
«WORD EXPREC 
3 hKKKKKK KKK END SEGMENT KRKKKKKK KKK 
3: 
TRAP CSESEG 


3NEXT sg ne 
2END OF RAM MEMORY CHECK 
;LOOP TILL _ALL RAM WRITTEN 
zDON'T CONTINUE IF ERROR A. WRITE 
TRAP CSESCAPE 
WORD 110044-. 


zCLEAR OUT R2 HIGH BITS 

SET BACK 10 7777 

GET DATA PATTERN BACK IN SHAPE 
AMBIGUOUS 


WAIT FOR READY, 

LOAD UP RAM ADDRESS POINTER 

sWAIT FOR READY, 

sREAD RAM CONTENTS K 

CHECK WITH DATA WRITTEN 

2BR DATA_IN = DATA OUT 

WRITTEN DATA NOT = TO READ 
TRAP CSERHRD 
-WORD 405 
WORD TSBAM2 
WORD EXPREC 


:SCOPE LOOP 











TEST 4: RAM T 


500 025302 
4 025304 


503 025306 
025306 
025306 
04 





Lb fa = San teat TESTS 


164406 
116501 


01040 
00030 
ps oe 
120102 
001404 


104456 


002342 


104403 


000001 





50$: 
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MOVB TSBAH(RS) ,R1 
MO R4,R2 


ADD ae R2 
CMPE 1,R2 


BEQ 8 
ERRHRD ERRNO,M2901. EXPREC 


CKLOOP 


DEC R4 
BGE 40$ 


ENDSUB 


TRAP CSCLP1 
HIGH BYTE READ OF TSBA 
DATA PATTERN WRITTEN 
sHIGH TO LOW 
sTOTAL OF BYTES IN LOW BYTE 
SUM OF BYTES WRITTEN TO TSDB = TSBAH 
:BR IF OK, THEY SHOULD BE 
32901 PROBLEM ADDER 
TRAP CSERHRD 
WORD 404 
-WORD M2901 
«WORD EXPREC 


CSCLP1 


sSCOPE LOOP 


TRAP 
sDROP DATA COUNTER (PATTERN) 
zNOT AT LOC. ZERO YET 


S\NANAANANANRN END SUBTEST \A\NN\NNAAAAAAN 
L10044: 
TRAP CSESUB 


SEQ 0134 


F 1 
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TEST 4: RAM TEST SEQ 0135 
507 025310 BGNSUB 3//1111141147 BEGIN SUBTEST ///////4////7/ 
025310 14.2: 
025310 104402 TRAP C$B8SUB 
508 g TEST 4, SUBTEST 2 
10 
511 $ THIS SUBTEST WRITES RAM WITH ALL ZEROS 
216 : THEN WALKS AN ALL ONES WORD DOWN THROUGH MEMORY 
514 025312 004737 015764 JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 
515 025316 103405 BCS 20$ [BR IF INIT WAS OK 
519 025320 010001 MOV RO,R1 sCONTENTS OF wTesR REGISTER 
520 025322 ERRDF ERRNO, SFIERR,SFIMSG FATAL ERROR TSSR WAS NOT OK 
025322 104455 TRAP CSERDF 
025324 000625 -WORD 405 
025326 003646 -WORD SFIERR 
025330 012024 -WORD SFIMSG 
521 025332 005002 20$: CLR R2 TEST DATA = 0 
S822 025334 005004 CLR RG : STARTING RAM ADDRESS = 0 
5<3 025336 004737 016326 JSR PC, CHKTSSR SWAIT FOR READY, NON-AMBIGUOUS 
35: oseere 10506£ 000000 25$ CLRB TSDB(RS) SET INTO MAINTENANCE MODE 
526 025346 BGNSEG y>>>>>>>>>>>> BEGIN at + >>>>>>>>>>>> 
$07 025346 104404 TRAP CS$BSEG 
528 025350 004737 016326 JSR PC,CHKTSSR sWAIT FOR READY, NON-AMBIGUOUS 
529 025354 010465 000000 MOV R4, TSDB(RS) 3LOAD ADDRESS INTO TSbd8 
530 025360 004737 016326 JSR PC, CHKTSSR WAIT FOR R NON-AMB I GUOUS 
531 025364 7110265 000000 MOVB R2, TSDB(RS) *LOADS DATA Into RAM LOCATION 
532 025370 004737 016326 JSR PC, CHKTSSR sWAIT FOR READY, NON-AMBIGUOUS 
533 025374 016501 000000 MOV TSBA(RS) ,R1 READS WRAP 
534 025400 120102 CMPB R1,R2 :DOES WRITTEN(WRAP) = READ ? 
535 025402 001404 BEQ 30$ sBR IF OK, THEY ARE EQUAL 
539 025404 ERRHRD ERRNO, TSBAM2,EXPREC ZDATA NOT WRAPPED CORRECTLY 
025404 104456 TRAP CSERHRD 
025406 000626 eWORD 406 
025410 026214 -WORD TSBAM2 
025412 015404 «WORD EXPREC 
540 025414 30$: 
541 025414 ENDSEG pRKKKKKKKKK KKK END SEGMENT <<<<eececccc< 
025414 10000$: 
542 025414 104405 TRAP CSESEG 
543 025416 005204 INC R4 sNEXT ADDRESS 
544 025420 020427 010000 CMP R4,410000 sEND OF RAM MEMORY CHECK . 
545 025424 001350 BNE 25$ 7BR, MORE RAM TO GO 
547 025426 005304 35$: DEC R4 3SET BACK TO 7777 
548 025430 005002 CLR R2 SET TO ALL ZE 
549 025432 004737 016326 40$: JSR PC, CHKTSSR sWAIT FOR READY (SSR) TO SET 
25436 0465 0 MOV R4.TSDB(RS) sLOAD UP TH ESS FOR RAM 
JSR PC,CHKTSSR sWAIT FOR READY (SSR) TO SET 
MOV TSBA(RS) ,R1 READ me RAM CONTENTS BACK 
CLR R2 LOOKING FOR 000000 CEXPECTED) | 
CMPB R1,R2 sBOiH SHOULD. BE 00000000 BINAR 


BEQ 43$ :BR, IF DATA 3 GOOD 








a i a e+ eC eee 


—_——_—- 
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| TEST 4: RAM TEST SEQ 0136 
559 025460 ERRHRD ERRNO, TSBAM3,EXPREC Z CHARACTERISTICS DATA NOT CORRECT 
025460 104456 CSERHRD 
| 025462 000627 : 407 
025464 026276 [WORD TSBAM3 
| 025466 015464 -WORD EXPREC 
560 025470 012702 000377 43%: MOV #000377,R2 ZSET ALL ONES WORD 
561 025474 910465 000000 MOV R4, TSDB(RS) ‘LOAD UP RAM ADDRESS POINTER 
025500 004737 016326 JSR PC“ CHKTSSR [WAIT FOR READY, NON-AMBIGUOUS 
563 025504 110265 000000 MOVB  R2.TSDB(RS) [WRITE DATA INTO RAM 
025510 004737 016326 JSR PC CHKTSSR [WAIT FOR READY, NON-AMBIGUOUS 
565 025514 016501 000000 MOV (R5), [READ RAM CONTENTS BACK 
566 025520 120102 MPB 2 : CHECK WITH DATA WRITTEN 
567 025522 001404 BEQ 4 R IF OK, DATA IN = DATA OUT 
571 025524 ERRHRD ERRNO, TSBAM2,EXPREC ‘ORITTEN DATA NOT = TO READ 
025524 104456 TRAP  CSERHRD 
025526 000630 «WORD 408 
25530 026214 e WORD TSBAM2 
025532 0154 <WORD EXPREC 
572 025534 45$:  CKLOOP :SCOPE LOOP 
025534 104406 TRAP — C$CLP1 
573 025536 004737 016326 JSR PC, CHKTSSR sWAIT FOR READY, NON-AMBIGUOUS 
574 025542 010465 000000 MOV R4, TSDB(RS) sWORD WRITE TO SET UP ADDRESS 
575 025546 004737 016326 JSR PC. CHKTSSR [WAIT FOR READY, 
576 025552 116501 000001 MOVB = TSBAH(R5) ,R1 ‘HIGH BYTE READ OF TSBA 
577 025556 010403 MOV R4,R3 :DATA PATTERN WRITTEN 
578 025560 000303 SWAB RS [HIGH TO LOW 
579 025562 060403 ADD R4,R3 sTOTAL OF BYTES IN LOW BYTE 
580 025564 120103 MPB se R'1_R3 :SUM OF BYTES WRITTEN TO TSDB = TSBAH 
581 025566 001404 BEQ 50$ F OK, THEY SHOULD BE 
585 aSeenn ERRHRD ERRNO,M2901,EXPREC F504 PROBLEM ADDER 
025570 104456 TRAP  CSERHRD 
Se 31 «WORD 409 
025574 026124 “WORD 2901 
025576 015464 “WORD EXPREC 
586 025 50$: CKLOOP sSCOPE LOOP 
25600 104406 TRAP — CS$CLP1 
587 025602 005304 DEC R4 :DROP RAM ADDRESS POINTER 
588 025604 002312 BGE 40$ SNOT AT LOC. ZERO YET 
590 025606 ENDSUB8 s\VAAAMANAAANN END SUBTEST \ANAANANAANAAN 
025606 L10045: 
591 025606 104403 TRAP CSESUB 
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TEST 4: RAM TEST SEQ 0137 


613 025650 
025650 


6 
615 025652 


025714 
627 025716 
628 025716 
025716 
025716 


630 025720 
631 025722 
O36 025726 


6 
634 025730 
5730 
025732 
635 025734 
636 025736 
637 025742 
638 025746 
639 025750 
640 025754 





104402 


004737 
103405 
010001 


104455 
000632 


R 


es 
Sy 


AS 
NUN 


= 


015764 
177777 20$: 
016326 
000000 

25$: 
016326 
000000 
016326 
000000 
016326 
000000 

30$: 
010000 

35$: 
016326 40$: 
000377 
0000: 
Shesee 


BGNSUB 


TEST 4, 


SUBTEST 3 


s//441111///47 BEGIN SUBTEST //////////747/ 
“"" TRAP ~—s C$BSUB 


THIS SUBTEST WRITES RAM WITH ALL ONES 
THEN WALKS A ZERO WORD DOWN THROUGH MEMORY 


BEQ 
ERRHRD 


ENDSEG 


PC, SOF INIT 
20$ 


RO,R1 
ERRNO, SFIERR, SF IMSG 


#177777 ,R2 
R4 


PC ,CHKTSSR 
TSDB(RS) 


PC, CHKTSSR 
R4, TSDB(RS) 
PC,CHKTSSR 
R2,TSDB(RS) 
PC,CHKTSSR 
TSBA(R 5),R1 


30$ 
ERRNO, TSBAM2,,EXPREC 


R4 
R4,#10000 
25$ 


SUB 


R4 
PC, CHKTSSR 
#000377,R2 


Ra, TSDB(R5) 
PC; CHKTSSR 


2NO CHECK IF WRITTEN INCORRECTLY 
TRAP 


2D0 INITIALIZE ON CONTROLLER 
:BR IF INIT WAS OK 

ONTENTS OF “TesR REGISTER 
SFATAL ERROR TSSR WAS ~, 


CSERDF 
GORD 410 
«WORD SFIERR 
WORD SFIMSG 


:SET DATA AT ALL ONES 

2SET_RAM ADDRESS AT ZERO 

{WAIT FOR READY, NON-AMBIGUOUS 
SET INTO MAINTENANCE MODE 


3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
TRAP CSBSEG 


sWAIT FOR READY, NON-AMBIGUOUS 
;LOAD ADDRESS INTO TSDB 
sWAIT FOR READY, NON-AMBIGUOUS 
;LOADS DATA INTO RAM LOCATION 
sWAIT FOR READY, NON-AMBIGUOUS 
sREADS WRAP DATA 
DOES WRITTEN(WRAP) = READ ? 
[BR IF OK, Y ARE EQUAL 
ZDATA NOT WRAPPED CORRECTLY 
TRAP + + aut 
«WORD TSBAM2 
-WORD EXPREC 
5 <MKKK KKK END SEGMENT <<<<<<<K<K<<K 
10000$: 
TRAP CSESEG 


sNEXT ADDRESS 
ie - OF - A. CHECK 
- MORE R 0 GO 


woRD L10046~. 
sSET BACK TO ad 
WAIT FOR READY, NON-AMBIGUOUS 
:SET uP EXPECTED SATA REGISTER 
sCLEAN OUT REGISTER 
SELECT ADDRESS IN RAM 
WAIT FOR READY (SSR) 
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Lt ot = HARDWARE TESTS 
TEST 4: RAM TEST 


641 025760 
one og 2766 
025766 
647 025770 
025770 


026074 
672 026076 
026076 
673 026100 
674 026102 
675 
676 026104 
026104 


000000 


000000 
016326 
000000 
016326 
000000 


016326 
000001 


016446 
025066 


43$: 


45$: 


50$: 


63$: 


MOV 
CMPB 


BEQ 
ERRHRD 


TSBA(RS) ,R1 
R1,R2 


4i 
ERRNO, TSBAM3 ,EXPREC 


R2 

R4, TSDB(RS) 

P 

45 

ERRNO, TSBAM2,EXPREC 


af setaae me 
SBAH(RS), 


R2,R3 
R1,R3 


50 
ERRNO ,M2901 ,EXPREC 


R4 
40$ 


PC, TSTLOOP 
63$ 

T4LO00P 

TST 


3+ 
sLOCAL TEXT MESSAGES FOR TEST 


1 
1 
1 


23 
62 
51 


M2901: 
TSBAM2: 





sPICK UP_RAM CONTENTS 


TBR, IF OK ¢ ONES 

;MEMORY CHANGED AFTER ALL = WRITE 
TRA CSERHRD 
"WORD 412 
-WORD TSBAM3 
«WORD EXPREC 


Y, 
SWRITE DATA INTO R 
;WAIT FOR READY, NON-AMBIGUOUS 
;READ RAM_ CONTENTS ire 


38 
;WRITTEN SATA "Nor = TO READ 


TRAP CSERHRD 
«WORD 413 
WORD TSBAM2 
WORD EXPREC 
:SCOPE LOOP 
TRAP CSCLP1 
sWAIT FOR READY, NON-AMBIGUOUS 
HIGH BYTE READ OF TSBA 
sDATA PATTERN WRITTEN 
HIGH TO LOW 
sTOTAL OF BYTES IN LOW BYTE 
:SUM OF BYTES WRITTEN TO TSOB = TSBAH 
2BR IF OK, THEY SHOULD BE 
32901 PROBLEM ADDER 
CSERHRD 
eWORD 414 
-WORD 2901 
WORD EXPREC 
SCOPE LOOP 
CSCLP1 


TRAP 
DROP RAM ALDRESS POINTER 


sNOT AT LOC. ZERO YET 


S\AVAAANANANNN END SUBTEST \ANAANAANAAAAA 
L10046: 


TRAP CSESUB 
2D0 WE NEED TO ITERATE TEST ? 
CH _IF NOT 
SEXECU TE AGAIN 
sALL DONE THIS TEST 
RAP CSEXIT 
«WORD 1L10043-. 


* TSBA Wigh Oyte Not Sum of Last TSDB Write (2901 Error)* 


* Write to 


B Not Equal to Read of 


TSBA Low Byte’ 


‘Write To RAM Location Modified Another Location’ 


SEQ 0138 





J11 
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TEST 4: RAM TEST 


689 026356 122 101 115 TST4ID: -ASCIZ "RAM Verification’ 
691 026400 ENDTST 

026400 
' 026400 104401 


L10043: 


TRAP 


CSETST 


SEQ 0139 
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TSVSA = HARDWARE TESTS MACRO M1113 25-MAY-82 08:41 PAGE 85 


TEST 5: SECOND INITIALIZATION TEST SEQ 0140 
694 -SBTTL TEST 5: SECOND INITIALIZATION TEST 
69% ; Tals TEST VERIFIES THE SAME ELEMENTS AS DID INITIALIZATION TEST 
697 : AND ALSO CHECKS THAT CERTAIN PARTS OF RAM IS CLEARED TO ZERO 
698 : AND THAT 2901 REGISTERS 10 AND 11 ARE ALSO CLEARED TO ZERO. 
699 : THIS IS A CONF IDENCE CHECK OF A PART OF THE SELF-TEST SEQUENCE 
700 ; i es THAT IT IS REALLY BEING EXECUTED). FOR EAC H OF 
701 ; SUBTESTS (ONE FOR INITIALIZING VIA A BUS INIT, THEO HER “POR 
702 : INITIALIZING BY WRITING INTO THE TSSR), THE FOLLOWING SEQUENCE 
703 ; IS PERFORMED: 
708 
. re teh 
706 : +* 1. EACH RAM LOCATION AND 2901 REGISTERS 10 AND 11 ARE SET 
707 : : TO ALL 1°S BY USING WRITES INTO THE TSDB REGISTER (LOW 
208 : BYTE AND MAINTENANCE MODE WORD WRITES). 
710 ; 2. THE CONTROLLER IS INITIALIZED AND THE VARIOUS CHECKS ON 
711 : THE TSSR DESCRIBED IN INITIALIZATION TEST #1 ARE 
rie : PERFORMED. 
Py % 
714 : 3. 491"S (377 OCTAL) ARE WRITTEN INTO THE LOW BYTE OF TSDB, 
715 : I OULD AM LOCATI TO BE WRITTEN TO ALL 
716 : 1°S SINCE 2901 REGISTERS 10 AND 11, SPECIFYING THE RAM 
717 : ADDRESS, 0. RAM LOCATION O IS VERIFIED BY 
718 : I WORD OF ZEROS INTO THE TSDB. THE RESULTING 
r9 ; LOW BYTE OF TSBA SHOULD CONTAIN ALL 1°S. 
721 : 4. THE ENTIRE RAM IS SCANNED. LOCATION 0 SHOULD CONTAIN 
722 : L 1°S AND THE REMAINING LOCATIONS, EXCEPT FOR THE 
723 : MESSAGE BUFFER IMAGE AR SHOULD CONT. AIN 0. 
724 : DISCREPANCIES ARE RE PORTED. AN ERROR AT THIS POINT IS 
725 : MOST LIKELY DUE TO A ROM, PIPELINE OR SEQUENCER PROBLEM 
726 : OR A TIMING PROBLEM. 
727 ; 
728 : 
729 3 
730 ; 
731 026402 BGNTST 
026402 TS:: 
736 026402 012700 027354 MOV #TSTSID,RO zASCII MESSAGE TO IDENTIFY TEST 
737 026406 004737 016500 JSR PC, TSTSETUP O INITIAL TEST SETUP 
738 026412 012737 000024 002214 MOV #20. ,LOOPCNT ‘PERFORM 20 ITERATIONS 
739 026420 TSLOOP: 
740 026420 005037 002220 CLR FATFLG :CLEAR THE FATAL ERROR FLAG 
742 Oc6%3¢ BGNSUB SILITTAAASA ASA GESIN SuateST ALAA AAA 
: 026424 104402 TRAP  C$BSUB 
744 026426 004737 015764 JSR PC, SOFINIT :D0 A SOFT TO START 
745 026432 103404 BCS 0$ 0.K 
749 026434 ERRDF ERRNO, SFIERR,SFIMSG eREPORT ERROR AND DROP DRIVE 
34 104455 . CSERDF 
026436 000765 . TeORD 501 
026440 003646 -WORD SFIERR 
026442 012024 -WORD SFIMSG 
750 026444 012702 177777 10$: MOV #-1,R2 TALL ONE DATA PATTERN 








TEST 


751 026450 


0 0 
773 026552 
774 026556 


775 aseeen 


776 0 
777 026570 


794 
795 026674 


| TSVSA = HARDWARE TESTS MACRO M1113 25-MAY-82 08:41 
5: SECOND 


INITIALIZATION TEST 
065004 CLR 
004737 016326 JSR 
105065 000000 15$: CLRB 
737 016326 JSR 
010465 000000 MOV 
737 016326 JSR 
110265 000000 MOVB 
5204 INC 
020427 007777 CMP 
003762 LE 
BRESET 
104433 
04737 016326 JSR 
016501 000002 MOV 
010102 MOV 
042702 176277 BIC 
052702 002200 BIS 
020102 CMP 
001406 BEQ 
ERRDF 
104455 
000766 
003701 
012072 
005237 002220 INC 
20$: CKLOOP 
104406 
ESCAPE 
104410 
000170 
004737 016326 JSR 
105065 000000 CLRB 
004737 016326 JSR 
005065 000000 CLR 
012702 000377 MOV 
737 016326 JSR 
110265 0000 MOVB 
737 016326 JSR 
005065 000 CLR 
737 016326 JSR 
116501 0000 MOVB 
120102 CMPB 
1406 BEQ 
ERRDF 
104455 
000766 
027442 
015464 
005237 002220 C 
25$: CKLOOP 
104406 
ESCAPE 
104410 
000066 
012704 000310 MOV 
005002 CLR 
737 016326 JSR 
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R4 
PC,CHKTSSR 


C° CHKTSSR 
R2, TSDB(RS) 

R4 #7777 

15$ 

PC,CHKTSSR 
TSSR(R5) RI 

R1,R2 
#°CCHIADDR!OFL>,R2 
#SSR!NBA,R2 

R1,R2 


0 
ERRNO, SFHERR, SFFMSG 


FATFLG 

SUB 
PC,CHKTSSR 
TSDB(R5) 
PC ,CHKTSSR 
TSBB (RS) 
#377 ,R2 
PC,CHKTSSR 
R2,TSDB(RS) 
PC; CHKTSSR 
TSDB(RS) 


PC, CHKTSSR 
i tei 


25 
ERRNO, TSADDR,EXPREC 


FATFLG 
SUB 


#310,R4 
PC, CHKTSSR 


SS TO See 
;COMPARE TO LAST ADDRESS 
BRANCH TILL ALL DATA WRITTEN 
2 ISSUE A BUS RESET TRAP 


WAIT FOR READY, NON-AMBIGUOUS 
3GET a. E CONTENTS OF TSSR 


A SHOULD BE 
EXPECTED. TO RECEIVED 
TBRA NCH IF COMPARE 

REPORT A FATAL ERROR 


zSET FATAL ERROR FLAG 
LOOP ON ERROR IF FLAG a 1 


AP 
sEXIT IF FATAL ERROR DETECTED 
TRAP 


WAIT FOR SSR TO SET 
3PUT 


BACK ph Bag ery Hy 


WAIT FOR READY, NON-AMB 
sSET ADDRESS BACK TO 0000 


tWAIT FOR READY, NON-AMBIGUOUS 
:SHOULD POINT TO RAM 0 

‘WAIT FOR READY, NON-AMBIGUOUS 
SELECT LOCAT ION 0 


READY, NON-AMBIGUOUS 
READ RAM LOCATION SPECIFIED 
sLOCATION SHOULD BE 377 OCTAL 


78R IF OK 
sWASN'T POINTING TO CORRECT LOC. 
TRAP 


- WORD 
- WORD 


3SET THE ERROR FLAG 
SCOPE LOOP 


RAP 
3NO MORE CHECKS IF FATAL TERROR 
TRAP 


zSTART WITH LOC 310 


;MEMORY EXPECTED SHOULD BE coseee 


sWAIT FOR READY, NON-AMBIGUOU 


SEQ 0141 


CSRESET 


SET 


€SERDF 
502 

SFHERR 
SFFMSG 
CSCLP1 


CSESCAPE 
L10050-. 


CSERDF 
502 
TSADDR 


EXPREC 


CSCLP1 


CSESCAPE 
L10050-. 
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5: SECOND INITIALIZATION TEST 


TEST 


026700 


805 026742 
806 026744 
807 026750 
808 
809 026752 
6752 
026752 


104403 
005737 
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000000 30$: MOV R4, TSDB(RS) 
016326 JSR PC; CHKTSSR 
000000 MOVB TSBACRS) R1 
CMPBséR'1,R2 
BEQ 40 
ERRDF ERRNO, TSMEM, SFFMSG 
002220 INC FATFLG 
40$:  CKLOOP 
ESCAPE SUB 
INC RG 
000400 CMP R4,4400 
BNE 30$ 
ENDSUB 
002220 TST FATFLG 
BEQ 50$ 
017172 JSR PC, CKDROP 
002220 CLR FATFLG 


50$: 


SEQ 0142 


Hers LOCATION SPECIFIED 
sWAIT FOR READY, NON-AMBIGUOUS 
READ LOC CONTENTS 

sCHECK MEMORY FOR Go0000 
BRANCH IF DATA OKAY 

MEMORY NOT ZERO AFTER a 


CSERDF 
TyORD 502 
WORD TSMEM 

SFFMSG 


-WO 
3SET THE FATAL ERROR FLAG 
TRAP CSCLP1 
CSESCAPE 
«WORD 110050-. 
te AT NEXT RAM LOC. 
TOP OF RAM ADDRESS SPACE 
‘BRANCH TILL ALL MEMORY TESTED 
SV\VVANANAAAANN END SUBTEST \N\NANAVAAAAA 
L10050: 
TRAP CSESUB 
21S FATAL ERROR FLAG SET ? 
IF _NOT 


BRANCH N 
:NO_LOOP, TRY TO DROP DEVICE 
;CLEAR THE FATAL ERROR FLAG 


sEXIT ON FATAL ERROR 
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TEST 5: SECOND INITIALIZATION TEST SEQ 0143 
817 026772 BGNSUB S/IIIIITIITTT «BEGIN SUBTEST ///////IAII/ 
026772 104402 TRAP  C$BSUB 
819 026774 004737 015764 JSR PC, SOFINIT :D0 A SOFT TO START 
0 027000 103404 cS 0$ SBRANCH IF 0.K. 
824 027002 ERRDF ERRNO, SFIERR,SFIMSG ZREPORT ERROR AND DROP DRIVE 
027002 104455 TRAP — CSERDF 
027004 000767 «WORD 503 
027 003646 -WORD  SFIERR 
027010 012024 -WORD  SFIMSG 
825 027012 012702 177777 10$: MOV #-1,R2 ZALL ONE DATA PATTERN 
826 027016 005004 CLR R4 ZSTARTING RAM ADDRESS 
827 027020 004737 016326 JSR PC, CHKTSSR [WAIT FOR READY, NON-AMBIGUOUS 
828 027024 105065 000000 15$:  CLRB  TSDB(RS) ZSET MAINTENANCE MODE J 
829 027030 004737 016326 SR PC, CHKTSSR ZWAIT FOR READY, NON-AMBI 
830 027034 010465 - 000000 MOV RG, TSDB (RS) 3SET THE NEXT RAM ADDRESS 
831 027040 004737 016326 JSR * CHKTSSR 3WAIT FOR READY, NON-AMBIGUOUS 
832 027044 110265 000000 MOVB Ro. TSDB(RS) ZLOAD TEST DATA 
833 027050 0052 INC R ZNEXT ADDRESS TO TEST 
834 027052 020427 007777 CMP R4,#7777 :COMPARE TO LAST ADDRESS 
835 027056 003762 BLE 15$ :BRANCH TILL Ate DATA WRITTEN 
836 027060 005065 000002 CLR TSSR(RS) ZISSUE A SOFT RESET 
837 027064 737 016326 JSR PC, CHKTSSR [WAIT FOR READY, NON-AMBIGUOUS 
838 027070 016501 000002 MOV TSSR(RS) ,R1 3GET THE CONTENTS OF TSSR 
839 027074 010102 MOV R1,R :CONTENTS OF TSSR 
840 027076 042702 176277 BIC H-EGHIADDRLOFL>, R2 STHESE BITS MAY nee 4st 
841 027102 052702 002200 BIS #SSR!NBA,R2 ZREADY AND NEW DATA SHOULD BE SET 
027106 020102 CMP R1, : COMPARE EXPECTED TO RECEIVED 
843 027110 001406 BEQ 20$ [BRANCH IF COMPARE 
847 027112 ERRDF ERRNO, SFHERR, SFFMSG SREPORT A FATAL ERROR 
027112 104455 TRAP  CSERDF 
027114 000770 «WORD 504 
027116 003701 -WORD  SFHERR 
027120 012072 -WORD SFFMSG 
848 027122 005237 002220 INC FATFLG 7SET FATAL ERROR FLAG 
849 027126 20$:  CKLOOP :LOOP ON ERROR IF FLAG SET 
027126 104406 TRAP  C$CLP1 
850 027130 ESCAPE SUB sEXIT IF FATAL ERROR DETECTED 
027130 104410 TRAP  CSESCAPE 
027132 000170 -WORD 110051-. 
027134 004737 016326 JSR PC, CHKTSSR :WAIT FOR SSR TO SET 
852 027140 105065 000000 CLRB —« TSDB(RS) [PUT BACK INTO MAINTENANCE MODE 
853 027144 004737 016326 JSR PC, CHKTSSR [WAIT FOR READY, NON-AMBIGUOUS 
854 027150 005065 000000 CLR TSDB(RS) :SET ADDRESS BACK TO 0000 
855 027154 012702 000377 MOV 77,R2 
856 027160 004737 016326 JSR C,CHKTSSR tWAIT FOR READY, NON-AMB I GUOUS 
027164 110265 000000 MCVB =R2. TSDB(RS) SSHOULD POINT TO RAM 0 
858 027170 004737 016326 JSR * CHKTSSR ;WAIT FOR READY, NON-AMBIGUOUS 
859 027174 005065 000000 CLR TSDB(RS) SSELECT LOCATION 0 
0 027200 004737 016326 JSR PC,CHKTSSR :WAIT FOR READY, NON-AMBIGUOUS 
861 027204 116501 000000 MOVB = TSBA(R5),R1 READ RAM LOCATION SPECIFIED 
862 027210 120102 MPB sR. R2 LOCATION SHOULD BE 377 OCTAL 
863 027212 001406 EQ 25 R IF OK 
864 027214 ERRDF ERRNO, TSADDR,EXPREC [WASN'T POINTING TO CORRECT Loc. 
027214 104455 RAP CSERDF 
027216 000770 TEORD 504 
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Oe?eee 027442 «WORD TSADOR 
O27222 0154 «WORD EXPREC 
865 027224 005237 002220 INC FATFLG 3SET THE FATAL ERROR FLAG 

866 0272 25$: CKLOOP :SCOPE LOOP 
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027230 104406 TRAP CS$CLP1 


867 027232 ESCAPE SUB ZNO MORE CHECKS IF FATAL ERROR 
027 32 104410 TRAP  CSESCAPE 
027234 000066 «WORD 110051-. 
7236 012704 000310 MOV #310,R4 zSTART WITH LOC 310 
27242 905002 CLR R2 MEMORY EXPECTED SHOULD BE 000000 
870 027244 004737 016326 JSR PC ,CHKTSSR WAIT FOR READY, NON-AMBIGUOUS 
871 027250 010465 000090 30$: MOV R4, TSDB(RS) :SELECT LOCATION SPECIFIED 
872 027254 004737 016326 JSR PC. CHKTSSR :WAIT FOR READY, NON-AMBI 
873 027260 116501 000000 MOVB = TSBA(RS),R1 [READ LOC CONTENTS 
874 027264 120102 CMPB sR}, R2 :CHECK MEMORY F 000000 
875 027266 001406 BEQ = 40S ZBRANCH IF DATA OKAY 
876 027270 ERRDF ERRNO, TSMEM, SFFMSG ‘MEMORY NOT ZERO AFTER INIT. 
027270 104455 CSEROF 
027272 000770 TUORD 504 
027274 027404 “WORD  TSMEM 
027276 012072 .WORD SFFMSG 
877 027300 005237 002220 INC FATFLG ZSET THE FATAL ERROR FLAG 
878 027304 40$:  CKLOOP 
027304 104406 TRAP  C$CLP1 
879 027306 ESCAPE SUB :EXIT ON FATAL ERROR 
027306 104410 TRAP § CSESCAPE 
027310 000012 «WORD 110051-. 
880 027312 005204 INC RG :LOOK AT NEXT RAM LOC. 
881 027314 020427 000400 CMP R4, #400 ZAT TOP OF RAM ADDRESS SPACE 
882 027320 001353 BNE 308 [BRANCH TILL ALL MEMORY TESTED 
884 027322 ENDSUB S\AVAANAAAAAAA END SUBTEST \AAAAAAAAAAAN 
027322 L1005i: 
027322 104403 TRAP  CS$ESUB 
886 027324 005737 002220 TST FATFLG z1S FATAL ERROR FLAG SET ? 
887 027330 001402 BEQ 50$ [BR ANCH IF Not | 
888 027332 004737 017172 JSR PC, CKDROP =NO L Y TO DROP DEVICE 
889 027336 004737 016446 50$: JSR PC. TSTLOOP SHOULD WE 0 ITERATIONS ? 
7342 103002 BCC 60$ ‘BRANCH IF NOT 
891 027344 000137 026420 JMP TSLOOP [LOOP UNTIL COUNT EXPIRED 
892 027350 60$: EXIT TST ALL DONE THIS TEST 
027350 104432 TRAP  CSEXIT 
93 
894 3+ 
895 SLOCAL TEXT MESSAGES FOR TEST 


897 
898 027354 105 170 164 TSTSID: .ASCI 
899 027404 111 156 143 TSMEM: .ASCI 
900 027442 111 156 143 TSADDR: .ASCI 
901 -EVEN 
902 027504 ENDTST 
027504 L10047: 
3 027504 104401 TRAP CSETST 


Z ‘Extended Initialization’ 
Z ‘Incorrect RAM Data After Init’ 
Z ‘Incorrect RAM Address After Init’ 
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SEQ 0145 
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TEST 6: COMMAND REJECT SEQ 0146 
906 .SBTTL TEST 6: COMMAND REJECT 
908 
909 : THIS TEST VERIFIES THAT ALL COMMANDS OTHER THAN WRITE 
910 : CHARACTERIST ICS ARE REJECTED DUE TO THE NEED BUFFER ADDRESS 
911 : (NBA) BIT BEING SET IN TSSR, AND THAT THE TSBA AND TSSR 
912 : REGISTERS ARE LEFT IN THE EX STATE AFTER EACH COMMAND 
913 : REJECTED. THIS TEST CHECKS MICROPROCESSOR SEQUENCING, BASIC 
914 : COMMAND DECODING AND DATI DMA HANDLING. THIS TEST CONTAINS TwO 
915 : SUBTESTS: SUBTEST 1 SEQUENCES THROUGH ALL COMMAND WORDS (0 OTHER 
916 : WRITE CHARACTERISTICS) WITH THE INTERRUPT ENABLE (IE) BIT 
917 : CLEAR AND VERIFIES THAT AN INTERRUPT IS NOT GENERATED BY THE 
918 : REJECTED COMMAND; SUBTEST 2 PERFORMS SIMILARLY 10 suBTEST 1 BUT 
919 : SETS THE IE BIT IN EACH COMMAND WORD AND VERIFIES T 
920 : INTERRUPT IS GENERATED WHEN THE COMMAND IS REJ ECTED SUBTEST 1 
921 : SETS UP THE INTERRUPT SERVICE ROUT INE TO FLAG UNEXPECTED 
922 : INTERRUPTS. THE COMMAND WORD IN THE COMMAND BUFFER IS 
923 : INITIALIZED 10. 100000 (OCTAL) AND THE REMAINING THREE WORDS IN 
924 : THE COMMAND BUFFER ARE SET TO KNOWN UNIQUE PATTERNS. THEN THE 
925 : FOLLOWING SEQUENCE IS PERFORMED: 
927 $ 
928 : 1. INITIALIZE THE CONTROLLER BY WRITING INTO THE TSSR: 
329 : PROPER INITIAL CONDITIONS ARE VERIFIED. 
931 : 2. TSDB IS WRITTEN WITH ADDRESS OF THE COMMAND BUFFER TO 
932 : START PROCESSING. 
934 : 3. THE PROGRAM WAITS FOR SSR TO SET; IF SSR DOES NOT SET. 
935 : AN ERROR REPORT IS ISSUED AND THE TEST IS ABORTED. 
937 : 4. THE CONTENTS OF TSSR ARE CHECKED. TSSR IS CORRECT IF 
938 : IT CONTAINS EITHER OCTAL 102206 OR 102306 (IT 4 
939 : DEPENDS UPON THE STATE OF THE TAPE TRANSPORT) 
941 : 5. THE CONTENTS OF TSBA ARE CHECKED. TSBA SHOULD CONTAIN 
942 ; THE INITIAL COMMAND BUFFER ADDRESS (LOADED IN STEP 2) 
943 : PLUS 10 (OCTAL); 1.€., TSBA SHOUL 
944 : JUST AFTER THE COMMAND PACKET (NOTE T 
945 ; PACKET WORDS ARE ALWAYS FETCHED). 
947 : 6. USING THE MAINTENANCE MODE WRAPAROUND FUNCTIONS « THE 
948 : COMMAND IMAGE BLOCK IN THE M7196'S RAM (LOCATIONS 
949 : 201-210, COCTAL)) ARE CHECKED; THE IMAGE SHUULD CONTAIN 
950 : F THE FOUR COMMAND PACKET WORDS AS SET UP IN 
952 . 
953 : 7. TH HE COMMAND WORD IN THE COMMAND BUFFER IS INCREMENTED 
954 : O THE NEXT PATTERN NOT CONTAINING WRITE 
955 : CHARAET ERISTICS OR IE. THE REMAINING THREE WORD OF THE 
956 : COMMAND BUFFER ARE SEQUENCE WITH PSEUDO-RANDOM DATA. 
957 : IF THE COMMAND WORD HAS NOT REACHED ITS MAXIMUM VALUE 
958 : (17777741), THE TEST MSEOUENCE IS REPEATED. 
0 : 
962 : SUBTEST 2 IS IDENTICAL TO SUBTEST 1, EXCEPT THAT THE PROGRAM 








COMMAND REJECT SEQ 0147 
CAUSES THE IE BIT TO BE SET IN EACH COMMAND WORD AND THEN 
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963 $ 

96% : VERIFIES THAT AN INTERRUPT OCCURS. 

966 027506 BGNTST sass 

971 027506 012700 030743 MOV #TSTEID_RO ZASCII MESSAGE TO IDENTIFY TEST 

972 027512 004737 016500 JSR C, TSTSETUP 7D0 INITIAL TEST SETUP 

973 027516 012737 000024 002214 | MOV #26. LOOPENT :PERFORM 20 ITERATIONS 

974 027524 i6LOOP: 

975 027526 BGNSUB SIIIIIITIITTT BEGIN SUBTEST ////AIIIIIT1 

: 027524 104402 TRAP  C$8SUB 

977 027526 SETPRI #PRIOO ZLOWER PRIORITY TO ALLOW INTERPUPTS 
027526 012700 000000 MOV #PRIO0,RO 
027532 104441 TRAP  C$SPRI 

978 027534 012704 030420 MOV #TGPACKET RG :GET THE ADDRESS oF COMMAND PACKET 

979 027540 012703 002750 MOV STBLK,RS ‘BLOCK OF TEST D. 

980 027544 012314 5$: MOV Re (R4) S INSERT THE NEXT. Test DATA WORD 

981 027546 : BGNSEG £>>>39>>>9>>> BEGIN SEGMENT >>>>>>>>>>>> 
027546 104404 TRAP  C$BSEG 

©32 027550 004737 015764 JSR PC, SOF INIT :D0 SOFT INIT OF CONTROLLER 

°83 027554 103405 BCS 10$ ‘BR IF SOFT INIT = OK 

987 027556 010001 MOV RO,R1 ‘SAVE CONTENTS OF TSSR 

988 027560 ERRDF ERRNO,SFIERR, SFIMSG [DEVICE FATAL ERROR DURING I INIT 
$5 7800 104455 CSERDF 
027562 001131 Teono 601 
027564 003645 “WORD  SFIERR 
027566 012024 -WORD SFIMSG 

989 027570 005037 002220 10$: CLR FATFLG ZCLEAR FATAL ERROR FLAG 

990 027574 005037 002222 CLR INTRECV [CLEAR INTERRUPT RECEIVED FLAG 

991 027600 004737 016326 JSR PC, CHKTSSR ZWAIT FOR READY, NON-AMBIGUOUS 

992 027604 042714 000200 BIC #BI1T7, (R4) “DISABLE INTERRUPTS 

993 027610 010465 000000 MOV 24, TSDB(RS) [SET THE PACKET ADDRESS 

994 027614 004737 016240 JSR PC. WAITE SWAIT FOR SSR TO SET 

995 027620 103407 BCS 15$ *BR IF CARRY SET (G00D RETURN) 

996 027622 010001 MOV RO,R1 SSAVE CONTENTS OF TSSR 

1000 027624 ERRDF ERRNO, T6SSR,PKTSSR SDEVICE FATAL SSR FAILED TO SET 
027624 104455 TRAP CSERDF 
027626 001132 «WORD 602 
027630 030455 <WORD  T6SSR 
027632 012036 “WORD PKTSSR 

1001 027634 005237 002220 INC FATFLG :SET FATAL ERROR FLAG 

1002 027640 15$:  CKLOOP [LOOP ON ERROR, IF FLAG SET 
027640 104406 TRAP  CSCLP1 

1003 027642 ESCAPE SUB :BY-PASS SUBTEST IF FATAL ae RrOR 
027642 104410 CSESCAPE 
027644 000170 TeonD L10053-. 

1004 027646 005737 002222 TST INTRECV :DID AN INTERRUPT OCCUR ? 

1005 027652 001404 BEQ 22$ ‘BRANCH IF 

1009 027654 ERRHRD ERRNO, T6INT,PKTSSR 
027654 104456 TRAP  CSERHRD 
027656 001133 «WORD 603 

27660 030533 “WORD T6INT 

027662 012036 “WORD PKTSSR 

1010 027664 012702 102206 22$: MOV #SCINBA:SSR!TSREJ, R2 ; EXPECTED CONTENTS OF TSSR 

1011 027670 004737 016326 JSR PC, CHKTSSR ;WAIT FOR READY, NON-AMBIGUOUS 
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1022 027726 
7726 

ioe? 027730 
34 


1034 

1035 027762 

1036 027766 

1040 027770 
027770 
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000002 
000100 


000100 


016326 
000000 


000010 


011104 


177740 
000004 


000002 
003056 


027544 


002220 
017172 


25$: 


30$: 


35$: 


40$: 


45$: 


50$: 





JSR 
BCS 
ERRHRD 


ENDSEG 


TSSR(RS),R1 
#0 1 


#OFL ,R2 
Re Ri 
ERRNO, TONGA, PKTSSR 


47 ryt Fs 
en 


Re 
#10,R2 
R1,R2 


35 
ERRNO, T6TSBA, EXPREC 


PC,CKRAM 
ERRNO, PKTRAM,RAMERR 


(R3) RO 
#177740,R0 
RO, #4 

45$ 

#2,R3 

R3, 4TBLEND 
50$ 

5$ 


os 
PC, CKDROP 


3GET Mh CONTENTS OF TSSR 
s1S OFF-LINE BIT SET 
BRAN CH IF NOT OF POL IWE 
sSET OFF-LINE IN EXPECTED DATA 
:DOES rg tt MATCH RECEIVED ? 
{ROA "wor SET. To REJECT 
CSERHRD 
«WORD 604 
-WORD T6NBA 
-WORD PKTSSR 
;LOOP ON ERROR ? 
TRAP CSCLP1 
sWAIT FOR READY, NON-AMBIGUOU 
3GET TSBA REGISTER CONTENTS 
sSTART OF THE PACKET 
EXPECT TSDA TO PACKET + 10 
ARE EXPECTED TO RECEIVED 
ERROR IF NOT 
*PRINT THE ERROR & wah 
CSERHRD 
TeORD 5 
eWORD T6TSBA 
-WORD EXPREC 
sSEE IF DATA IN RAM IS CORRECT 
‘BR ANCH IF PACKET IN a IS CORRECT 
sREPORT THE RAM ERROR(S 
> TRAP CSERHRD 
-WORD 606 
-WORD PKTRAM 
-WORD RAMERR 
3 MRK R KKK KKK END gad KRKRR KEK KKK KKK 
TRAP CSESEG 


3PACKET ro WORD 
GET BITS 0-4 

A+ T Te CHARACTERISTICS 
3GET NEXT iy A FROM DATA TABLE 
REACHED END 0 ae 
BRANCH IF END. OF TABLE 
sCONTINUE TEST UITH NEW DATA 


s\VAAAAAAAANNN END SUBTEST \\NAAAAAAAAAA 
L10053: 
TRAP CSESUB 
zANY FATAL ERRORS ? 


BRANCH IF NOT 
zTRY TO DROP THE UNIT 


SEQ 0148 


1057 030050 
030050 


SRNOe 


BRUsxS 
sessssese 
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= 
Oo 
Mm 
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oO 
w 
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= 

& 
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N 
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000000 


030420 
002750 


015764 


000 
016240 


002220 


002222 


60$: 


5$: 


10$: 


15$: 


22$: 


25$: 





BGNSUB 


SETPRI #PRIOO 


MOV #TOPACKET,R4 
MOV #TSTBLK RS 


MOV (R3)+, (R4) 
BGNSEG 

JSR PC, SOF INIT 
BCS 10$ 

MOV 


RO,R1 
ERRDF ERRNO, SFIERR,SFIMSG 


CLR FATFLG 
CLR INTRECV 
JSR PC,CHKTSSR 
BIS #BIT7, (R4) 
MOV R4, TSDB(RS) 

ITF 
BCS 15$ 


MOV RO,R1 
ERRDF ERRNO, T6SSR,PKTSSR 


INC FATFLG 
ESCAPE SUB 


i INTRECV 
ERRHRD ERRNO, T6ONINT,PKTSSR 


MOV SSC A 1 Sam TERE. R2 
JSR PC, CHKTSSR 


MOV TSSR(R5) RI 
BIT #OFL,R1 

BEQ 

BIS #OFL.R2 
CMP Ro Ri 


BEQ 3 
ERRHRD ERRNO, T6NBA,PKTSSR 


SEQ 0149 
SIIIIIITITTTL BEGIN SUBTEST /////IIIIITT 
"TRAP ss C$BSUB 


;LOWER PRIORITY TO ALLOW pact 

MOV RI00,RO 
TRAP CSSPRI 

3GET THE eons A COMMAND PACKET 

sSTART OF TEST D. 

PLACE NEXT DATA WORD IN PACKET 

3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
AP 


TR CSBSEG 

D0 SOFT INIT OF CONTROLLER 

BR IF SOFT INIT = OK 

sSAVE CONTENTS OF _TSSR 

DEVICE FATAL ERROR DURING INIT 
TRAP CSERDF 

«WORD 607 

-WORD SFIERR 


SF IMSG 
sCLEAR FATAL ERROR FLAG 
2 CLEAR spb pe oy RECEIVED FLAG 
NON~AMB I GUOUS 


{WAIT FOR READ 
ENABLE INTER RUPT 
ete THE PACKET ADDRESS 
T FOR SSR TO SET 
BR IF CARRY i (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 
DEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
WORD 608 
—— T6SSR 
PKTSSR 
3SET FATAL ERROR FLAG 
LOOP ON ERROR, IF FLAG SET 
CSCLP1 
BY-PASS SUBTEST IF iomm ™ _ 
CSESCAPE 
ORD L10054-. 
sDID AN INTERRUPT OCCUR ? 
BRANCH IF YES 
REPORT ERROR IF NO —_ 
CSERHRD 
ORD 609 
-WORD T6NINT 
PKTSSR 


“WORD 
sEXPECTED CONTENTS OF TSSR 

IT FOR READY, NON-AMBIGUOUS 
GET THE CONTENTS oof TSSR 
:18 0 OFF-LINE 8 Ts eT 


CH IF NOT. NE 
T OFF-LINE IN EXPECTED DATA 
ors ig 3443. MATCH RECEIVED ? 


MATCH 
3NBA NOT SET TO REJECT 
CSERHRD 
“(WORD 610 
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COMMAND REJECT SEQ 0150 
030246 030430 .WORD T6NBA 
030250 012036 -WORD PKTSSR 

1104 030252 30$:  CKLOOP ZLOOP ON ERROR ? 
030252 104406 TRAP _ CSCLP1 
1105 030254 004737 016326 JSR PC, CHKTSSR ZWAIT FOR READY, NON-AMBIGUOU' 
1106 030260 016501 000000 MOV TSBA(RS),R1 [GET TSBA REGISTER CONTENTS 
1107 030264 010402 MOV R4,R2 ZSTART OF THE PACKET 
1108 030266 062702 000010 ADD #16,R2 SEXPECT TSDA TO PACKET + 10 
1109 030272 020102 CMP R1,R2 : COMPARE EXPECTED TO RECEIVED 
1110 030274 001404 BEQ 35 SERROR IF 
1114 030276 ERRHRD ERRNO, T6TSBA,EXPREC ‘PRINT THE MERROR g EXPD/RECV 
030276 104456 CSERHRD 
030300 001143 TeonD 611 
030302 030671 -WORD T6TSBA 
aes 030304 015464 -WORD EXPREC 
1116 
1117 030306 004737 011104 35$: JSR PC, CKRAM ZSEE IF DATA IN RAM IS CORRECT 
1118 030312 103404 BCS 40$ ‘BRANCH IF PACKET IN RAM IS CORRECT 
1122 030314 ERRHRD ERRNO,PKTRAM,RAMERR *REPORT THE RAM ERROR(S) 
030314 104456 TRAP § CSERHRD 
030316 001144 «WORD 612 
030320 004741 .WORD PKTRAM 
030322 015500 .WORD RAMERR 
1123 030324 40$: ENDSEG 3 SRK KK KKK END SEGMENT <<K<<<<KKKKKK 
030324 10000$: 
324 104405 TRAP  CSESEG 
1124 030326 011300 MOV (R3) ,RO ZNEXT PACKET COMMAND WORD 
1125 030330 042700 177740 BIC #177760,R0 ZGET BITS 0-4 
1126 030334 020027 000004 CMP RO, #4 :DON'T TEST WRITE CHARACTERISTICS 
1127 030340 001002 BNE 45$ BRANCH IF NOT WRITE CHARACTERISTICS 
1128 030342 062703 000002 ADD #2,R3 ZBY=-PASS WRITE CHARACTERISTCS 
1129 030346 020327 003056 45$: CMP R3,#TBLEND SHAVE WE COMPLETED DAiA TABLE ? 
1130 030352 103002 BHIS 50$ [BRANCH IF ALL TESTED 
1131 030354 000137 030070 JMP 5$ :TEST WITH NEXT DATA 
1133 030360 50$:  ENDSUB Z\VVAAAAAAAAAN END SUBTEST \AVAAAAAAAAAN 
030366 L10054: 
030360 104403 TRAP CSESUB 
1134 030362 005737 002220 TST FATFLG ZANY FATAL ERRORS ? 
1135 0 001402 BEQ 60$ ‘BRANCH IF NOT 
1136 030370 004737 017172 JSR PC, CKDROP :TRY TO DROP THE UNIT 
1137 030374 004737 016446 60$: JSR PC. TSTLOOP SSHOULD WE DO ITERATIONS ? 
1138 030400 103002 BCC 62$ BRANCH IF NOT 
1139 030402 000137 027524 JMP T6LOOP SLOOP UNTIL COUNT EXPIRED 
1140 030406 62$: EXIT TST TALL DONE THIS TEST 
030406 104432 TRAP CSEXI T 
1141 
1142 i+ 
1145 ZLOCAL STORAGE FOR THIS TEST 
1145 
1147 030420 .=<.#1028177770 
1149 030420 TOPACKET: :COMMAND PACKET FOR TEST 
1150 030420 000000 .WORD 0 [WILL CONTAIN VARIABLE COMMANDS 
1151 030422 052525 “WORD 052525 
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T 6: COMMAND REJECT SEQ 0151 
1152 030424 125252 «WORD 125252 
a+ 030426 052525 eWORD 052525 
1155 
1156 3¢ 
M32 sLOCAL TEXT MESSAGES FOR TEST 
1159 ‘ 
1160 030430 103 157 7 6 : .ASCIZ ‘Command Not Rejected‘ 
1161 030455 103 157 156 T6SSR: .ASCIZ ‘Contents of TSSR Incorrect After Write Packet’ 
1162 030533 125 156 145 T6INT: .ASCIZ ‘Unexpected Interrupt Received On Write Packet’ 
1163 030611 105 170 160 T6NINT: .ASCIZ ‘Expected Interrupt Not Received On Write Packet’ 
1164 03067 111 156 143 T6TSBA: .ASCIZ ‘Incorrect TSBA Address After Packet Write’ 
He +4 030743 103 157 155 TST6ID: .ASCIZ ‘Command Reject’ 
1167 030762 ENDTST 
2 L10052: 


03076 
030762 104401 TRAP CSETST 
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q EST 6: COMMAND REJECT SEQ 0152 
| 1169 

1170 .SBTTL TEST 7: WRITE CHARACTERISTICS 

1172 

1173 : THIS TEST VERIFIES BASIC | OPERATION OF THE WRITE CHARACTERISTICS 

1174 : C VERIFIES THAT THE COMMAND BLOCK AND CHARACTERISTICS 

1175 : DATA BLOCK ARE FETCHED PROPERLY FROM CPU MEMORY, THE NEED BUFFER 

1176 : RES N TSSR IS HANDLED PROPERLY, AND THAT A PROPER 

1177 : MESSAGE PACRET i STORED, WHERE APPROPRIATE. THIS TEST DOES NOT 

1178 : HECK THAT THE VARIOUS FUNCTIONS ENABLED BY CHARACTERISTIC MODE 

1179 : DATA BITS ATE PROPERLY; THE FUNCTIONING OF THESE BITS IS 

1180 ; VERIFIED IN SUBSEQUENT TESTS. ALL COMMANDS EXECUTED IN THIS 

1181 : TEST HAVE THE INT ERRUPT ENABLE (IE) BIT CLEARED TO ZERO, SO NO 

1182 ; INTERRUPTS SHOULD BE GENERATED. HOWEVER, THE PROGRAM RUNS AT 

1183 : PROCESSOR PRIORITY a} WITH THE INTERRUPT SERVICE ROUT! \c set uP 

1184 : TO FLAG UNEXPECTED INTERRUPTS. IF AN INTERRUPT OCCURS, 

1185 : PROBLEM EXISTS IN EITHER THE LSI-11 BUS INTERFACE SECTION OR IN 

1186 : THE ROM OR PIPELINE. 

1188 : THIS TEST CHECKS VARIOUS MICROPROGRAM SEQUENCES, COMMAND 

1189 ; DECODING, DMA LOGIC, AND BASIC PACKET PROTOCOL HANDLING. THIS 

1190 : IS THE FIRST TEST IN WHICH DATO DMA CY VCLES (F OR STORING THE 

1191 : ME SSAGE PACKET) ARE PERFORMED. ANY ERRORS IN THE BODY OF THE 

1192 : TEST (I.E, ERRORS OTHER THAN INITIALIZATION ERRORS RELATED TO 

1195 ; THE TRANSPORT BUS) DEFINITELY INDICATE A BAD M7196 MODULE. 

1195 : 

119 ; 

1197 030764 BGNTST 
030764 T?7:: 

1202 030764 012700 034253 MOV #TST7ID,RO ASCII MESSAGE TO IDENTIFY TEST 

1203 030770 004737 0165 JSR PC, TSTSETUP O INITIAL TEST SETUP 

1204 030774 012737 000024 002214 MOV #20. ,LOOPCNT ‘PERFORM 20 ITERATIONS 

1205 031002 T7LOOP: 

1206 ot BGNSUB SIITTTAAAAASASA BEGIN SUBTEST VALET AAA ASA 
031002 104402 TRAP C$BSUB 

1207 031004 004737 034302 JSR PC, T7REST :SET PACKET TO START-UP VALUES 

1209 031010 SETPRI #PRIOO ZLOWER PRIORITY TO ALLOW INTERRUPTS 
031010 012700 000000 MOV #PR100,RO 
031014 104441 TRAP C$SPRI 

1210 031016 012703 002762 MOV #TSTBLK+10. .R3 :START OF TEST DATA 

1211 031022 012704 033120 MOV #T7PACKET ,R4 [GET THE ADDRESS OF COMMAND PACKET 

Iete 031026 012764 000010 000006 = MOV #8. ,PKBCNT(R4) ZSTART WITH MINIMUM ALLOWABLE VALUE 

1214 031034 BGNSEG y>>>>>>>>>>>> BEGIN SEGENT >>>>>>>>>>>> 

te 031034 104404 TRAP C$BSEG 

1216 031036 004737 015764 JSR PC, SOFINIT 7D0 SOFT INIT OF CONTROLLER 

1217 031042 103405 BCS 10$ 7BR IF SOFT INIT = OK 

1221 031044 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 

1222 031046 ERRDF ERRNO,SFIERR,SFIMSG ‘DEVICE FATAL ERROR DURING uit 
031046 104455 CSERDF 
031050 001275 MOORD 701 
031052 003646 <WORD SFIERR 
031054 012024 -WORD SFIMSG 
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1223 031054 
1224 03106? 
1225 031065 
1226 031072 
1227 031076 
1228 037100 
1232 631102 
931102 
031104 
931106 
031110 

1233 031112 
1234 031116 
031116 

1235 031120 
031120 
031122 

1236 031124 
1237 031130 
1261 031132 
031132 
031134 
031136 
031140 

1242 031142 
1243 031146 
1244 031152 
1245 031156 
1246 031160 
1247 031164 
1248 031166 
1252 031170 
1170 


1269 
1270 031256 
1271 031262 





td 


002220 
002222 


000 
016326 


002220 


002222 


016326 
000000 
033146 
000200 
002224 
000002 
000016 


011104 


000012 


10$: 


15$: 


228: 


25$: 


30$: 


32$: 


35$: 


TST 


Q 
ERRHRD 


JSR 
BCS 
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FATFLG 
INTRECV 
R4, TSDB(RS) 
PC’ CHKTSSR 
15$ 


RO,R1 
ERRNO, T7SSR,PKTSSR 


FATFLG 
SEG 


_— 
ERRNO, T7INT,PKTSSR 


seentes - R1 
#SSR, 

#OFL, Ri 
25$ 

#OFL ,R2 

R2,R1 


30 
ERRNO, T7NBA,PKTSSR 


PC,CHKTSSR 
TSBA(RS) ,R1 


#T7BFR,R 
#B1T7, XST2(R2) 
32$ 

EXTFEA 

#2,R2 

#14. R2 

RI Re 


35 
ERRNO, T7TSBA, EXPREC 


PC, CKRAM 


408 


sCLEAR FATAL ERROR FLAG 

CLEAR INTERRUPT Aastha FLAG 

sSET_ THE gg! DRESS 

WAIT FOR SSR 0 SeT 

BR IF CARRY SET (GOOD RETURN) 

sSAVE CONTENTS OF TSS 

DEVICE FATAL SSR FAILED Ad 


T CSERDF 
WORD 702 
WORD T7SSR 
-WORD PKTSSR 

sSET FATAL ERROR FLAG 

sLOOP ON ERROR, IF FLAG SET 
RAP CSCLP1 

BY-PASS SUBTEST IF _ — 

RAP CSESCAPE 

GORD 10000$-. 

;DID AN INTERRUPT OCCUR ? 

BRANCH IF NOT 
TRAP CSERHRD 
«WORD 703 
-WORD T7INT 
-WORD PKTSSR 

GET THE CONTENTS OF TSSR 

EXPECTED CONTENTS OF » SSR 

21S OFF-LINE BIT SET 

BRANCH IF NOT OFF<LINE 

sSET OFF-LINE IN EXPECTED DATA 

DOES EXPECTED MATCH RECEIVED ? 

ZOKAY IF MATCH 

NBA NOT ZERO 
TRAP CSERHRD 
WORD 704 
-WORD T7NBA 
eWORD PKTSSR 

:LOOP ON ERROP ? 
TRAP CSCLP1 

WAIT FOR READY, NON-AMBIGUOUS 


A 
ARE EXPECTED TO RECEIVED 
+ ERRO OR IF NOT EQ 
PRINT THE ERROR & cares cy 
CSERHRD 

"GORD 705 
-WORD T7TSBA 
WORD EXPREC 


sSEE IF DATA IN RAM IS CORRECT 
sBRANCH IF PACKET IN RAM IS CORRECT 


| 
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1275 031264 ERRHRD ERRNO, PKTRAM,RAMERR ;REPORT THE RAM ERROR(S) 
031264 104456 TRAP CSERHRD 
031266 001302 -WORD 706 
031270 004741 eWORD PKTRAM 

1276 031272 015500 -WORD RAMERR 

1277 031274 40$: ENDSEG 3 <KKK KKK KKK << END SEGMENT <<<KdKdKK KKK 
031274 10000$: 

1278 031274 104405 TRAP (C$ESEG 

1279 031276 012364 000006 MOV (R3)+,PKBCNT(R4) 3SET THE TEST WORD 

1280 031302 020327 003056 CMP R3,4TBLEND sHAS ALL DATA BEEN TESTED ? 

1281 031306 103002 BHIS 55$ SBRANCH IF ALL DATA DONE 

ices 031310 000137 031034 JMP 5$ ;BRANCH TILL BACK TO ZERO 

1284 031314 55$: ENDSUB ZT\UVAVAAAAAANN END SUBTEST \ANAAAAAAAAAA 
031314 L10056: 

one 031314 104403 TRAP C$ESUB 

1286 031316 005737 002220 TST FATFLG sANY FATAL ERRORS ? 

1287 031322 Bol ses BEQ 60$ *BRAN CH IF NOT 

1288 031324 004737 017172 JSR PC, CKDROP 3TRY TO DROP THE UNIT 

1289 031330 60$: 








1 
1300 031330 
031330 
031330 104402 
1301 
1302 031332 
031332 012700 
031336 41 
303 031340 012703 
304 031344 012704 
305 031350 004737 


00473 
103405 


ee ee ee ee 
yw 
RAR 
So 
Ww 
= 
Ww 
wi 
& 


nat a a tt as ts 


031434 
1328 031436 
1329 031440 
031440 


314 
1336 031462 
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TEST 7: WRITE CHARACTERISTICS 


000000 


033166 
033120 
034302 


015764 


002222 


000002 


000000 


016240 


002222 


000002 


;+ 


;TEST 7, SUBTEST 2 


;CHECK THAT UNUSED BITS BEING SET CAUSES 


SEQ 0155 


;WRITE CHARACTERISTICS COMMAND TO BE REJECTED 


5$: 


10$: 


15$: 





BGNSUB 


SETPRI 


CKLOOP 
ESCAPE 


TST 
BEQ 
ERRHRD 


MOV 


#PRI00 


#T72DATA,R3 
#T7PACKET RG 
PC, T7REST 


PC, SOF INIT 
10$ 


RO,R1 
ERRNO, SFIERR, SF IMSG 


INTRECV 
R 

(R3) ,RO 

2(R3),, (ROD 
R4,TSDB(R5S) 
PC.WAITF 

15$ 

RO,R1 

ERRNO, T7SSR,PKTSSR 


SEG 


INTRECV 
ERRNO, T7INT,PKTSSR 


TSSR(RS) ,R1 


SIIIIIITTTTT «BEGIN SUBTEST ////////011 
"TRAP ss C$BSUB 
ZLOWER PRIORITY TO ALLOW INTERRUPTS 
MOV R100,RO 


TRAP CSSPRI 
zSTART OF TEST DATA FOR SUBTEST 
GET THE ADDRESS OF COMMAND PACKET 
RESTORE PACKET TO STARTING VALUES 


{>>>>>>>>>>>> BEGIN ——. >>>>>>>>>>>> 
CS$BSEG 


2D0 SOFT pay OF CONTROLLER 
BR IF SOFT INIT = Ok 
SAVE CONTENTS OF TSSR 
DEVICE FATAL ERROR a Ps 


CSERDF 
GORD 4 
«WORD SFIERR 

SF IMSG 


- WORD 
CLEAR INTERRUPT RECEIVED FLAG 
;START OF THE COMMAND PACKET 


sWAIT FO 
sBR IF CARRY SET (GOOD RETURN) 
zSAVE CONTENTS OF TSSR 

;DEVICE FATAL SSR deere SET 


CSERDF 

WORD 708 

WORD T7SSR 

«WORD PKTSSR 
LOOP ON ERROR, IF FLAG SET 

RAP CSCLP1 
sBY-PASS CHECKS IF FATAL ERROR 

TRAP CSESCAPE 

WORD 10000$-. 


:DI1D AN INTERRUPT OCCUR ? 
‘BRANCH IF NOT 


TRAP CSERHRD 
709 


WORD T7INT 
PKTSSR 
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TEST 


1337 031466 
1338 031472 
1339 031476 
1340 031500 
1341 031504 
Ie 031506 
1343 031510 
1344 031512 
1345 031522 
1346 031526 
1350 031530 
031530 
031532 
31534 

536 


031 
1351 031540 

031540 
1352 031542 
1353 031546 
1357 031550 

031550 


031556 
1358 031560 


1359 031560 
031560 





oie Oe 


010100 


020027 
001404 


104456 
001306 
033333 
012036 


104406 
032701 
001004 
104405 


000137 


104403 


102206 
000100 


000100 


002000 


002000 


000004 
033202 


031344 


25$: 


30$: 


35$: 


57$: 


ERRHRD 


CKLOOP 
BIT 
BNE 
ERRHRD 


ENDSEG 
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#SC!SSR!ITSREJ!NBA,R2 
# R1 


ERRNO, T72REJ,PKTSSR 


ee 
ERRNO, T72NBA,PKTSSR 


#4,R3 
R3,#T72D0NE 
57$ 

S$ 


sEXPECTED CONTENTS OF 5 /SSR 

sIS OFF-LINE BIi SET ? 

;BRANCH IF NOT OFF-LINE 

3SET OFF-LINE IN EXPECTED DATA 

DOES EXPECTED MATCH RECEIVED. ? 

*0K AY Fh MATCH 

‘DATA F ROM TSSR 

FIND BITS IN ERROR 

1S NBA ONLY BIT IN ERROR ? 

:DON' T PRINT ERROR IF NBA ONLY BAD BIT 

;COMMAND NOT REJECTED 
TRAP CSERHRD 
-WORD 710 
-WORD T72REJ 
-WORD PKTSSR 

;LOOP ON ERROR ? 
TRAP CSCLP1 

31S NBA BIT SET ? 

sOKAY IF NBA SET 

;NBA NOT SET 
TRAP CSERHRD 
eWORD 711 
-WORD T72NBA 
-WORD PKTSSR 

BRRK RRR KKK = SEGMENT <<<<<<ceecccc 
TRAP CSESEG 


POINT TO NEXT DATA PAIR 
COMPARE TO END OF TEST DATA 
BRANCH IF ALL DATA TESTED 
sBRANCH TILL BACK TO ZERO 


Z\NNANANVANAANN END SUBTEST \\NNAAANAAAAA 
L10057: 
TRAP CSESUB 


SEQ 0156 


1 

1377 031602 
031602 
031602 

1378 

1379 031604 


28 Sees 
w WN 
ge esse 
oa 
~ 
—~ 


ee ee ey 
Ss 

own 

N—~ 

oooo 

WWW 

—_— 

baat 

SRF 


031702 
1403 031704 
1404 031706 
031 mS 
0317 
1405 031712 
1406 0317 
1410 031720 
031720 








000000 


000001 
033120 
034302 


015764 


002222 
000006 
000000 
016240 


002222 


ssa 
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:TEST 7, SUBTEST 3 


CHECK THE WRITE CHARACTERISTICS COMMAND IS REJECTED 
:IF ISSUED WITH AN INVALID DATA BLOCK BYTE COUNT 


SETPRI #PRIOO 


#1,R3 
AT7PACKET,R4 
PC, T7REST 


PC, SOF INIT 


10$ 


RO,R1 
ERRNO, SFIERR, SF IMSG 


INTRECV 

R3,PKBCNT(R4) 

R4, TSDB(RS) 
C,WAITF 


P 
15$ 
RO,R1 

ERRNO, T7SSR,PKTSSR 


SEG 


parnecy 
ERRNO, T7INT,PKTSSR 


TSSR(R5) ,R1 
#SC!SSR!TSREJ!NBA,R2 
#OFL,R1 


SEQ 0157 


SAITITATNA AST was | aes UU 


TRAP C$BSUB 
sLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV #PRIO0,RO 

TRAP CSSPRI 


sSTARTING BYTE COUNT 
GET THE ADDRESS OF COMMAND PACKET 
;RESTORE PACKET TO STARTING VALUES 


y>>>>>>>>>>>> BEGIN —. >>>>>>>>>>>> 
TRAP CS$BSEG 


2D0 SOFT rt OF CONTROLLER 
BR IF SOFT INIT = Ok 

zSAVE CONTENTS OF “TSSR 

DEVICE FATAL ERROR eee INIT 


CSERDF 
GORD 712 
WORD SFIERR 

SF IMSG 


- WORD 
sCLEAR_INTERRUPT RECEIVED FLAG 
ZINSERT THE BY LP a TEST 


;WA TO SET 

:BR IF CARRY ¥ (GOOD RETURN) 

zSAVE CONTENTS OF TSSR 

DEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
WORD 713 
WORD T7SSR 
«WORD PKTSSR 

:LOOP ON ERROR, IF FLAG SET 


TRAP CSCLP1 
2BY-PASS SUBTEST IF nn — 
CSESCAPE 
TTORD 10000$-. 
zDID AN os OCCUR ? 
BRANCH IF 


TRAP CSERHRD 
WORD 714 
- WORD 


:GET THE CONTENTS OF TSSR 
EXPECTED CONTENTS OF Pa 
21S OFF-LINE BIT SET 


T7INT 
PKTSSR 


‘epee tdci Sapte olay Age aegteN TS” EL RE RS 
T 
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TEST 7: WRITE CHARACTERISTICS SEQ 0158 

1414 031744 001408 BEQ 25$ sBRANCH IF NOT OFF-LINE 

1415 031746 052702 000100 BIS #OFL ,R2 sSET OFF-LINE IN EXPECTED DATA 

1218 031752 020201 25$: CMP Re Ri ;DOES EXPECTED MATCH RECEIVED ? 

1417 031754 001414 BEQ 30$ SOKAY IF MATCH 

1418 031756 010100 MOV R1,RO DATA FROM TSSR 

1419 031760 XOR R2,RO FIND BITS IN ERROR 

1420 031770 020027 002000 CMP RO,4NBA 71S NBA ONLY BIT IN ERROR ? 

1421 031774 001404 BEQ 30 ;DON’T PRINT ERROR IF NBA ONLY BAD BIT 

1425 031776 ERRHRD ERRNO,T73REJ,PKTSSR ;COMMAND NOT REJECTED 
031776 104456 TRAP CSERHRD 
032000 001313 eWORD 715 
032002 033432 -WORD T73REJ 
032004 012036 -WORD PKTSSR 

1426 032006 30$: CKLOOP ;LOOP ON ERROR ? 
03 104406 TRAP CSCLPI 

1427 032010 032701 002000 BIT #NBA,R1 31S NBA BIT SET ? 

1428 032014 001004 BNE OKAY IF NBA SET 

1432 032016 ERRHRD ERRNO,T72NBA,PKTSSR zNBA NOT SET 
032016 104456 TRAP CSERHRD 
032020 001314 -WORD 716 
032022 033202 -WORD T72NBA 
032024 012036 -WORD PKTSSR 

1433 032026 35$: 

1434 032026 ENDSEG SKK KKK END SEGMENT <<<KKKKdKKKKKK 
032026 10000$: 

1435 032026 104405 TRAP CSESEG 

1436 032030 005203 INC R3 NEXT BYTE COUNT 

1437 032032 020327 000006 CMP R346 sTESTED ALL INVALID ? 

1438 032036 002002 BGE 57$ SBRANCH IF TEST DONE 

ot 44 032040 000137 031616 JMP 5$ sBRANCH TILL BACK TO ZERO 

1441 032044 57$: ENDSUB S\NVAAAAAAAANN END SUBTEST \NV\ANANAAAAAAN 
032044 L10060: 


032044 104403 " TRAP = CSESUB 
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TEST 7: WRITE CHARACTERISTICS SEQ 0159 
1443 3+ 
1444 . 
1et2 s1eST 7, SUBTEST 4 
1447 : SUBTEST TO VERIFY THAT A WRITE CHARACTERISTICS COMMAND IS 
ce 3REJECTED IF AN ILLEGAL DATA BLOCK ADDRESS IS ISSUED. 
184 “' 
1452 Ossore BGNSUB SITTING ——— VIG AAA AGA 
1453 032046 104402 TRAP c$BSUB 
1454 032050 SETPRI] #PRIOO sLOWER PRIORITY TO ALLOW paar 
032050 612700 000000 MOV patho RO 
032054 104441 TRAP CSSPR 
oe 032056 012703 033166 MOV #T72DATA,R3 sSTART OF TEST DATA FOR SUBTEST 
1456 032062 012704 033120 5$: MOV #T7PACKET, R4 3GET THE ADDRESS OF COMMAND PACKET 
Lt 14 032066 004737 034302 JSR PC, T7REST sRESTORE PACKET TO STARTING VALUES 
1459 . 
1460 032072 004737 015764 JSR PC SOF INIT 3D0 SOFT INIT OF CONTROLLER 
1461 032076 103405 BCS 10$ ‘BR IF SOFT INIT 
1465 032100 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
1466 032102 ERRDF ERRNO,SFIERR,SFIMSG “DEVICE FATAL ERROR DURING INIT 
032102 104455 TRAP CSERDF 
032104 001315 -WORD 717 
032106 003646 -WORD SFIERR 
032110 012024 -WORD SFIMSG 
1467 032112 005037 002222 10$: CLR INTRECV sCLEAR INTERRUPT RECEIVED FLAG 
1468 032116 052737 000001 033130 BIS #1,T7DATA SMAKE ADDRESS ODD 
1469 032124 010465 000000 MOV R4, TSDB(RS) sSET THE PACKET ADDRESS 
1470 032130 004737 016240 JSR PC .WAITF WAIT FOR SSR TO SET 
1471 032134 103405 BCS 15$ BR IF CARRY SET rs RETURN) 
1472 032136 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
1476 032140 ERRDF ERRNO, T7SSR,PKTSSR ‘DEVICE FATAL SSR FAILED TO SET 
032140 104455 TRAP CSERDF 
032142 001316 -WORD 718 
032144 033721 -WORD T7SSR 
032146 012036 -WORD PKTSSR 
1477 032150 15$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
104406 TRAP CSCLP1 
1478 032152 ESCAPE SUB sBY-PASS SUBTEST IF on = — 
032152 104410 CSESCAPE 
032154 000116 ne L10061-. 
1479 032156 005737 002222 TST INTRECV 7DID AN a OCCUR ? 
1480 032162 001404 BEQ 22$ ‘BRANCH IF 
1484 032164 ERRHRD ERRNO,T7INT,PKTSSR 
32164 104456 TRAP CSERHRD 
032166 001317 eWORD 719 
032170 034101 eWORD T7INT 
032172 012036 PKTSSR 
se 34 032174 016501 000002 228: MOV TSSR(RS), 3GET THE CONTENTS OF TSSR 
1486 032200 012702 102206 MOV Fee ea TERE) ‘NBA, R2 SEXPECTED CONTENTS OF 5 F5SR 
pr 4 535596 032701 000100 BIT #OFL,R1 :1S OFF-LINE a m 
1488 032210 001402 BEQ ‘BRANCH IF NOT PEL INE 
1489 032212 052702 000100 BIS #OFL,R2 sSET OFF-LINE in EXPECTED DATA 
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TEST 7: WRITE CHARACTERISTICS SEQ 0160 

1490 032216 020201 25$: CMP R2,R1 :DOES EXPECTED MATCH RECEIVED ? 

1491 032220 001414 BEQ 30$ ‘OKAY IF MATCH 

1492 032222 010100 MOV R1,R0 SDATA FROM TSSR 

1493 032224 ; XOR R2,RO [FIND BITS IN ERROR 

149% 032234 020027 002000 CMP RO, ANDA 71S NBA ONLY BIT IN ERROR ? 

1495 032240 001404 BEQ 30$ ;DON* T PRINT ERROR IF NBA ONLY BAD BIT 

1499 032242 ERRHRD ERRNO, T74REJ,PKTSSR SCOMMAND NOT REJECTED 
032242 104456 TRAP CSERHRD 
032244 001320 .WORD 720 
032246 033525 “WORD T74REJ 
032250 012036 “WORD PKTSSR 

1500 032252 30$:  CKLOOP :LOOP ON ERROR ? 

33252 104406 TRAP — CS$CLP1 

1501 032254 032701 002000 BIT #NBA,R1 :1S NBA BIT SET ? 

1502 032260 001004 BNE 35$ OKAY IF NBA SET 

1506 032262 ERRHRD ERRNO, 172NBA,PKTSSR <NBA NOT SET 
032262 104456 TRAP — CSERHRD 
632264 001321 «WORD 721 
032266 033202 “WORD T72NBA 
032270 012036 <WORD PKTSSR 

1508 032272 35$:  ENDSUB Z\VVANANANANAN END SUBTEST \NANAVANAAAAA 
032272 L10061: 


ms 032272 104403 " TRAP —s« CSESUB 
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AY SS SS SS 
VMN 


Viuiwn 
SOWONAUSWN = 


032274 
032274 
032274 


1 

1522 032276 
032276 
032302 


RW 
reteted 
Mror 
Ww 

= 

oS 


5 032314 
7 032320 
032320 


Mroron 
oa 


032322 
032326 


03 
035335 


ee ee ee 
MViVIVIW MUUMVMU 


AES SOs 


032374 
1546 032376 
032376 
1547 032400 


155 
1555 032426 
1556 032432 


104402 


012700 
104 
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TEST 7: WRITE CHARACTERISTICS 


000000 
000001 


033120 
034302 


015764 


002222 
Stra 


00000 
016245 


002222 


000002 
102206 
000100 


+ 


TEST 7, SUBTEST 5 


CHECK THAT WRITE CHARACTERISTICS COMMAND IS REJECTED IF THE 
3MESSAGE BUFFER LENGTH SPECIFIES AN INVALID COUNT (LESS THAN 14) 


5$: 


10$: 


15$: 


223: 


BGNSUB 


SETPRI 


#PRIO0 


#1,R3 
AT7PACKET RG 
PC, T7REST 


PC, SOF INIT 
10$ 


RO,R1 
ERRNO, SFIERR, SF IMSG 


INTRECV 
R3, T7DATA+4 
RG. TSDB(RS) 
PC. WAITF 
15$ 


RO,R1 
ERRNO, T7SSR,PKTSSR 


SEG 


garnet 
ERRNO, T7INT,PKTSSR 


TSSR{RS), 
#SC1 SR! TSRESNBA, R2 





IIIT BEGIN SUBTEST ///I/IIIIII/ 
“"" TRAP ss C$BSUB 
;LOWER PRIORITY TO ALLOW INTERRUPTS 
MOV #PRI00,RO 


I 
TRAP CSSPRI 
sSTARTING BUFFER LENGTH 
GET THE ADDRESS OF COMMAND PACKET 
sRESTORE PACKET TO STARTING VALUES 


>>>>>>>>>>>> BEGIN non >>>>>>>>>>>> 
TRAP CS$BSEG 


D0 SOFT INIT OF CONTROLLER 
:BR IF SOFT INIT = OK 
zSAVE CONTENTS OF TSSR 
DEVICE FATAL ERROR — Re 


CSERDF 
"GORD 722 
WORD SFIERR 

SF IMSG 


- WORD 
2 CLEAR gt gry RECEIVED FLAG 
INSERT THE BAD MESSAGE LENGTH 
2SET_ THE PACKET ADDRESS 
;WAIT SSR TO 


R 
{DEVICE FATAL SSR senamat* = SET 


CSERDF 
WORD 723 
-WORD T7SSR 
«WORD PKTSSR 
:LOOP ON ERROR, IF FLAG SET 
CSCLP1 
sBY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
. 10000$-. 
DID AN INTERRUPT OCCUR ? 
BRANCH IF NOT 
TRAP CSERHRD 
WORD 724 
WORD T7INT 
PKTSSR 


3GET THE CONTENTS OF TSSR 
sEXPECTED CONTENTS OF 9 FSR 
sIS OFF-LINE BIT SET ? 
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TEST 7: WRITE CHARACTERISTICS SEQ 0162 
1557 032436 001402 BEQ 25$ ZBRANCH IF NOT OFF-LINE 
1558 032440 052702 000100 BIS #OFLR ZSET OFF=LINE IN EXPECTED DATA 
1559 032444 020201 25$: CMP she ‘DOES EXPECTED MATCH RECEIVED ? 
1560 032446 001414 BEQ itt ZOKAY IF 
1561 032450 010100 MOV R1,RO DATA FROM 18 
136¢ 03245 XOR R2.RO ‘FIND BITS IN ERROR 
1563 032462 020027 002000 CMP RO, A#NBA 1S NBA ONLY BIT IN ERROR ? 
1564 032466 001404 BEQ 30$ [DON'T PRINT ERROR IF NBA ONLY BAD BIT 
1568 032470 ERRHRD ERRNO, T75REJ,PKTSSR [COMMAND NOT REJECTED 
032470 104456 TRAP CSERHRD 
032472 001325 «WORD 725 
032474 033623 “WORD T75REJ 
032476 012036 -WORD PKTSSR 
1569 032500 30$:  CKLOOP ZLOOP ON ERROR ? 
500 104406 TRAP  C$CLP1 
1570 032502 032701 002000 BIT #NBA,R1 :1S NBA BIT SET ? 
1571 032506 001004 BNE 35$ [OKAY IF NBA SET 
1575 032510 ERRHRD ERRNO,T72NBA,PKTSSR NBA NOT SET 
032510 104456 TRAP § CSERHRD 
032512 001326 «WORD 726 
032514 033202 “WORD T72NBA 
032516 012036 “WORD PKTSSR 
1576 032520 35$: 
1577 032520 ENDSEG 3 6KKKK KKK END SEGMENT <<<<ddKK<KKKK 
032520 10000$: 
state 032520 104405 TRAP  CSESEG 
1579 032522 005203 INC R3 :NEXT BUFFER LENGTH 
1580 032524 020327 000016 CMP R3,414. SHAVE ALL BAD VALUES BEEN TESTED ? 
1581 032530 002002 BGE 57$ ‘BRANCH IF ALL TESTED 
1582 032532 000137 032310 JMP S$ 3BRANCH TILL BACK TO ZERO 
1 ENDSUB T\AVAAAAAAAAAA END SUBTEST \AVAAAAAAAAAA 
L10062: 


" TRAP = CSESUB 


——_—— 
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7: WRITE CHARACTERISTICS 


602 032554 


SBS Bae 
co esses 
BAR RRR 
onsfss 


032612 
032612 
032612 


bh aed ed SS ed eed ed od od 
oOnwnN—- oO 
oo 
S Www 
~w 
o 
~w 
So 


1 

1632 039650 
1623 032654 
1624 032656 
1628 Oascen 


03 
1629 032670 
1630 032674 


032674 
1631 032676 
032676 





002224 


034302 


000000 


002764 
033120 
00 


015764 


000000 
016326 


002220 


033140 
000006 
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;TEST 7, SUBTEST 6 


:THIS a eT oe es ONLY IF THE EXTENDED 


U OF WRITE CHARA 
iT VERIFIES THAT A FIFTH CHARACTERISTICS DATA WORD IS 


SEQ 0163 


XAMINING 
CTERISTICS). 
FETCHED 


F THE BYTE COUNT PARAMETER IN THE COMMAND PACKET IS 10 DECIMAL 


Z0R GREATER. 
‘ BGNSUB 
TST EXTFEA 
BNE 4$ 
EXIT TST 
4$: JSR PC, T7REST 
SETPRI #PRIOO 
MOV #TSTBLKS12. .R3 
MOV #T7PACKET, RG 
MOV #200,17SP 
a MOV #10. .PKBCNT(R4) 
: BGNSEG 
JSR PC, SOF INIT 
BCS 10$ 
MOV RO,R1 
ERRDF ERRNO, SFIERR, SF IMSG 
10$: CLR FATFLG 
CLR INTRECV 
MOV R4, TSDB(RS? 
JSR PC CHKTSSR 
BCS 15$ 
V RO,R1 
ERRDF ERRNO, T7SSR,PKTSSR 
INC FATFLG 
15$:  CKLOOP 
ESCAPE SEG 


SAINI al > wat ULL 


TRAP CS$BSUB 
sIS EXTENDED FEATURES SOFT. Sw Ut 
7BR. IF SOFTWARE Sh TCH IS SET (ON 
ZNO EXTENDED FEATURES The Test 

SET PACKET TO START-UP VALUES 
sLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV #PRI00,RO 

TRAP CSSPRI 
COMMAND PACKET 
[START WITH EXTENDED FEATURES VALUE 
3>>>>>>>>>>>> BEGIN sie =! >>>>>>>>>>>> 
TRAP CSBSEG 


START OF TEST DATA 


4 SOFT INIT OF CONTROLLER 
BR IF SOFT INIT = OK 

SAVE CONTENTS OF TSSR 

DEVICE FATAL ERROR aa” a 


CSERDF 
WORD 727 
—— SFIERR 

SF IMSG 


sCLEAR FATAL ERROR FLAG — 
CLEAR INTERRUPT RECEIVED FLAG 
SET THE veers? ADDRESS 


SS 
{DEVICE FATAL SSR deneas” A SET 
CSEROF 


WORD T7SSR 
. PKTSSR 
3SET FATAL ERROR FLAG 

:LOOP ON ERROR, IF FLAG SST 


TRAP CSCLP1 
:BY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 


CNR lala bi aaa ens PRO geile BPS TF 
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TEST 7: WRITE CHARACTERISTICS SEQ 0164 

032700 060156 .WORD  10000$-. 

1632 032702 005737 002222 TST INTRECV :DID AN-INTERRUPT OCCUR ? 

1633 032706 001404 BEQ ‘BRANCH IF NOT 

1637 032710 ERRHRD ERRNO, T7INT,PKTSSR 
032710 104456 TRAP CSERHRD 
032712 001331 .WORD 729 
032714 034101 -WORD T7INT 
032716 012036 PKTSSR 

1638 032720 016501 000002 22$: MOV TSSR(RS),R1 :GET THE CONTENTS OF TSSR 

1639 032724 012702 000200 MOV #SSR,R2 SEXPECTED CONTENTS OF _TSSR 

1640 032730 032701 000100 BIT #OFL,R1 ‘IS OFF-LINE iT SET 

1641 032734 001402 BEQ 25$ ‘BRANCH IF NOT OFF= LINE 

1642 032736 052702 000100 BIS #OFL,R2 :SET OFFELING IN EX PECTED DATA 

1643 032742 020201 25$: CMP R2,Ri DOES EXPECTED MATCH RECEIVED ? 

1644 032744 001404 BEQ 30$ SOKAY IF MATCH 

1648 032746 ERRHRD ERRNO, T7NBA,PKTSSR [HBA NOT ZERO 
032746 104456 TRAP § CSERHRD 
032750 001332 -WORD 730 
032752 033260 “WORD T7NBA 
032754 012036 -WORD PKTSSR 

1649 032756 30$:  CKLOOP :LOOP ON ERROR ? 
032756 104406 TRAP _— C$CLP1 

1650 032760 004737 016326 JSR PC, CHKTSSR ZWAIT FOR READY, NON-AMBIGUOUS 

1651 032764 016501 000000 MOV TSBA(RS),R1 [GET TSBA REGISTER CONTENTS 

1652 032770 012702 033146 MOV #T7BFR,R2 ZSTART OF THE DATA BUFFER 

1653 032774 032762 000200 000012 BIT #B1T7,XST2(R2) 21S EXTENDED FEATURES BIT SET ? 

1654 033002 001402 BEQ 32$ [BRANCH IF EXTENDED FEATURES OFF 

1655 033004 062702 000002 ADD #2,R2 SEXTRA WORD IF SPECIAL FEATURES 

1656 033010 062702 000016 32$: ADD #14. R2 SEXPECTED CONTENTS OF TSDA 

1657 033014 020102 CMP R1,R2 [COMPARE EXPECTED TO RECEIVED 

1658 033016 001404 BEQ 35$ SERROR IF NOT 

1662 033020 ERRHRD ERRNO,T7TSBA,EXPREC [PRINT THE ERROR & EXPD/RECY 
033020 104456 CSERHRD 
033022 001333 TEORD 731 
033024 034170 -WORD T7TSBA 
033026 015464 -WORD EXPREC 

182 

1665 033030 012704 033130 35$: MOV #T7DATA,RG rSET POINTER FOR CHECKER 

1666 033034 004737 011214 JSR PC, CKRAM2 [SEE IF DATA IN RAM IS CORRECT 

1667 033040 103404 BCS 40$ [BRANCH IF PACKET IN RAM IS CORRECT 

1671 033042 ERRHRD ERRNO,PKTRAM,RAMERR sREPORT THE RAM ERROR(S) 
033042 104456 TRAP  CSERHRD 
033044 001334 .WORD 732 
033046 004741 eWORD PKTRAM 

ore 033050 015500 .WORD RAMERR 

1673 033052 012704 033120 40$: MOV #T7PACKET,R4 ZRESET PACKET POINTER 

1674 033056 ENDSEG 3 MKKKKK KKK END SEGMENT <<<<<KKKKKKKK 
033056 10000$: 

. 033056 104405 TRAP  CSESEG 

1676 033060 012364 000006 MOV (R3) +, PkaCNT(R4) :SET THE TEST WORD 

1677 033064 020327 003056 CMP 3, #TBLEND 4 ZHAS ALL DATA BEEN TESTED ? 

1678 033070 103002 BHIS 55$ ‘BRANCH IF ALL 


DATA DONE 
16) 033072 000137 032612 JMP 5$ sBRANCH TILL BACK TO ZERO 





— 7 
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1681 033076 55$: ENDSUB S\NVAAAAAAANNN END SUBTEST \ANANANAAAAAN 
033076 L10063: 

1682 033076 104403 TRAP CSESuUB 

1683 033100 005737 002220 TST FATFLG zANY FATAL ERRORS ? 

1684 033104 001402 BEQ 60$ sBRANCH IF NOT 

1685 033106 004737 017172 JSR PC,CKDROP ;TRY TO DROP THE UNIT 

1686 033112 60$: 

1687 033112 EXIT TST zsALL DONE THIS TEST 
033112 104432 TRAP CSEXIT 
033114 001234 -WORD 1L10055-. 

1688 

1689 3+ 

1o59 ;LOCAL STORAGE FOR THIS TEST 

1692 

1694 033120 =<. +10>8177770 

1696 033120 T7PACKET: ;COMMAND PACKET FOR TEST 

1697 033120 100004 WORD 100004 sWRITE CHARACTERISTICS COMMAND, WITH ACK 

1698 033122 033130 ~ WORD T7DATA ZADDRESS OF CHARACTERISTICS BLOCK 

1699 033124 000000 -WORD O 

10 033126 000010 -WORD 8. sSTARTING VALUE OF BLOCK SIZE 

1702 033130 T7DATA: ;CHARACTERISTICS DATA BLOCK 

1703 033130 033146 -WORD T/7BFR sADDRESS OF MESSAGE BUFFER 

1704 033132 000000 eWORD 0 

1705 033134 000016 «WORD 14. sLENGTH OF MESSAGE BUFFER 

1706 033136 000000 -WORD 0 

414 033140 000000 T7SP: ~ WORD 0 sEXTFEA EXTRA WORD 

1709 033142 000000 090000 -WORD 0,0 SPACE 

fa 033146 T7BFR: .BLKW 8. sMESSAGE BUFFER 

1712 3¢ 

1713 3 

1oue ;TEST DATA FOR SUBTEST TWO 

a7te ;DATA HAS FORMAT: 

1718 ; 1ST WORD OFFSET TO TEST WORD IN PACKET 

1719 ; 2ND WORD BITS TO SET FOR TEST 

1720 3 

1721 = 

1722 

1723 033166 T72DATA: 

1724 033166 000000 037140 eWORD O,BITS!BIT6!BIT9!BIT10!BIT11!B1T12'B1T13 

1725 033172 000002 000001 -WORD 2,B1T 

1726 033176 000004 100100 -WORD 4,BIT6!BIT15 

1727 033202 T72DONE=. 

1728 

1729 

1730 3¢ 

173) ;LOCAL TEXT MESSAGES FOR TEST 

1733 : 

1734 033202 116 102 101 T72NBA: .ASCIZ ‘NBA Not Set On Rejected WRITE CHARACTERISTICS* 

1735 033260 127 122 111 T7NBA: .ASCIZ ‘WRITE CHARACTERISTICS Command Not Accepted’ 
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1736 033333 127 136 111 T72REJ: .ASCIZ ‘WRITE CHARACTERISTICS Not Rejected With Non-Zero Unused Fields’ 
1737 033432 127 12 111 T73REJ: .ASCIZ ‘WRITE CHARACTERISTICS Not Rejected With Invalid Data Count’ 
1738 033525 127 122 111 T74REJ: .ASCIZ ‘WRITE CHARACTERISTICS Not Rejected With Invalid Block Address’ 
1739 033623 127 122 111 T7SREJ: .ASCIZ ‘WRITE CHARACTERISTICS Not Rejected With Invalid Buffer Length‘ 
1740 033721 103 157 156 T7SSR: .ASCIZ ‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS‘ 

1741 034010 105 170 160 T7NINT: .ASCIZ ‘Expected Interrupt Not Received On WRITE CHARACTERISTICS* 

1742 034101 125 156 145 T7INT: .ASCIZ ‘Unexpected Interrupt Received On WRITE CHARACTERISTICS® 

1743 034170 111 156 143 T7TSBA: .ASCIZ ‘Incorrect TSBA Address After WRITE CHARACTERISTICS’ 

1744 034253 127 162 151 TST7ID: .ASCIZ ‘Write Characteristics’ 

ie -EVEN 





SEQ 0166 
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TEST 7: WRITE CHARACTERISTICS SEQ 0167 


1750 


NNN SN VN 
AAC AAKAAGaaa 
2 
W 
Oo 
Nm 


INN 
SUS 
oo 


104401 


033120 
100004 
033130 
000010 
033146 
000020 


ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 


T7REST: 


ENDTST 





#T7PACKET,R1 
#100004, (R1) 
#T7DATA, (R1) 
(R1)+ 


3 SAVE _THE Tra Baten 
sSTART OF THE PACKET 
+ zWRI TE CHARACTERISTICS WITH ACK 
+ DRESS "_ CHAR DATA BLOCK 
ZEXTENBED A DDRESS 


#8.,(R1)+ E OF DATA BLOCK IN BYTES 
ATPBER, (R14 sADDRESS OF MESSAGE BUFFER 
+ 
#16.,(R1)¢ ;LENGTH OF MESSAGE BUFFER 
(R1)+ 
(R1) 
P ;RETURN 


L10055: 


CSETST 


i ne i a a 
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~SBTTL TEST 8: VOLUME CHECK 





THIS TEST vomits THAT THE VOLUME CHECK (VCK) BIT, A_FLAG HELD 
WITHIN THE M7196 AND APPEARING IN XSTO, IS SET BY INITIALIZE AND 
Lene BY EXECUTING A WRITE CHARACTERISTICS COMMAND WITH THE 
CVC BIT SET. IT IS ALSO VERIFIED THAT A WRITE CHARACTERISTICS 
COMMAND WITH THE CVC BIT CLEAR DOES NOT AFFECT THE STATE OF THE 
VOLUME CHECK BIT. THE ACTUAL FUNCTION OF VOLUME ne gee Madd OF 
PREVENTING OR ALLOWING A TAPE MOTION COMMAND DEPENDING UP 

WHETHER VOLUME CHECK IS SET OR CLEAR, IS _NOT CHECKED BY -T MIS 
TEST; THIS FUNCTI en IS CHECKED IN THE INDIVIDUAL TESTS OF 
TAPE MOTION COMMANDS 


THE TEST PROCEEDS AS FOLLOWS: 
1. THE CONTROLLER IS INITIALIZED BY WRITING INTO THE TSSR. 


2. ee act CHARACTERISTICS COMMAND IS ISSUED (WITH CvC=0) 
XSTO_IN THE RETURNED tore BUFFER IS EXAMINED; 
THE VCK BIT SHOULD BE CLEAR (0). 


3. THE PREVIOUS STEP IS REPEATED TO VERIFY THAT VCK DOES 
NOT CHANGE (REMAINS AT 0). 


4. A WRITE CHARACTERISTICS COMMAND IS ISSUED WITH CVC=1 
AND THE VCK BIT IN XSTO_IN THE MESSAGE BUFFER IS 
EXAMINED; THE VCK BIT SHOULD BE CLEAR (0). 


5. A WRITE CHARACTERISTICS COMMAND IS ISSUED WITH CVC=0 
AND THE VCK BIT IN XSTO IN THE MESSAGE BUFFER IS 
EXAMINED; THE VCK BIT SHOULD REMAIN CLEAR (0). 


04 
1805 034352 BGNTST 
034352 é 18:: 
1810 034352 012700 035237 MOV. #TST8ID,RO ZASCII MESSAGE TO IDENTIFY TEST 
1811 034356 004737 016500 JSR .-. PC TSTSETUP D0 INITIAL TEST SETUP 
1812 034362 012737 000024 002214 MOV’. - #26. ,LOOPCNT PERFORM 20 ITERATIONS 
1815 034370 T8LOOP: 2 
1815 034370 012704 034760 MOV -. #TBPACKET,R4 sPACKET FOR WRITE CHARACTERISTICS 
1816 034374 004737 015764 5$: JSR ‘PC, SOF INIT :D0 SOFT INIT OF CONTROLLER 
1817 034400 103405 BCS «i108 2BR IF SOFT INIT = 
1821 034402 01000 MOV —RO, RI SAVE CONTENTS OF TSSR 
1822 0 ERRDF ERRNO, SFIERR,SFIMSG SDEVICE FATAL ERROR nae ie 
034404 104455 CSERDF 
034406 001441 MjoRD 801 
034416 003646 “WORD SFIERR 
034412 012024 “WORD  SFIMSG 
1823 034414 042714 040000 108: BIC —- #BIT14, (R4) CLEAR THE CVC BIT 
1824 034420 010465 000000 MOV —-R4, TSDB(R5) :SET THE PACKET ADDRESS FOR WRITE CHAR 
1825 034424 004737 016326 JSR PC, CHKTSSR :WAIT FOR SSR TO SET 
1826 034430 103405 Bcs «158 BR IF CARRY SET (GOOD RETURN) 
7 034432 010001 MOV —RO,R1 SAVE CONTENTS OF TSSR 
1 034434 ERRDF ERRNO, T8SSR,PKTSSR DEVICE FATAL SSR FAILED TO. SET 
034434 104455 TRAP CSERDF 
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TEST 8: VOLUME CHECK SEQ 0169 
034436 001442 «WORD 802 
034440 035150 ;WORD  T8SSR 
034442 012036 .WORD PKTSSR 

1832 034444 15$:  CKLOOP . jLOOP ON ERROR, IF FLAG SET 
034444 104406 TRAP  C$CLP1 
1833 034446 ESCAPE TST ZEXIT IF FATAL ERROR 
034446 104410 TRAP CSESCAPE 
034450 000604 -WORD £L10064-. 
1834 034452 012702 035002 MOV #TSBFR,R2 ZADDRESS OF THE “iESSAGE BUFFER 
1835 034456 032762 000020 000006 BIT #XSOVCK, XSTO(R2) 71S VOLUME CHECK SET IN XSTO ? 
1836 034464 001406 BEQ 20$ ZOKAY IF VOLUME CHECK IS CLEAR 
1840 034466 016501 000002 MOV TSSR(RS), ZCONTENTS OF TSSR FOR ERROR REPORT 
1841 034472 ERRHRD ERRNO, TanueK, PKTMES ;VOLUME CHECK NOT CLEAR 
034472 104456 TRAP  CSERHRD 
034474 001443 -WORD 803 
034476 035057 -WORD T8NVCK 
034500 012100 -WORD PKTMES 
1842 034502 20$:  CKLOOP ;LOOP ON ERROR ? 
034502 104406 TRAP _—C$CLP1 
1843 034504 010465 000000 MOV R4, TSDB(RS) :SET THE PACKET ADDRESS FOR WRITE CHAR 
1844 034510 004737 016326 JSR PC. CHKTSSR WAIT FOR SSR TO SET ‘ 
1845 034514 103405 BCS 25$ “BR IF CARRY SET (GOOD RETURN) sf 
1846 034516 010001 MOV RO,R1 ZSAVE CONTENTS OF TSSR 
1850 034520 ERRDF ERRNO, T8SSR,PKTSSR :DEVICE FATAL ser FAILED TO SET 
034520 104455 TRAP — CSERDF 
034522 001444 «WORD 804 “ 
034524 035150 .WORD T8SSR 
034526 012036 -WORD PKTSSR . 
1851 034530 25$:  CKLOOP ;LOOP ON ERROR, IF FLAG SET i 
104406 TRAP — C$CLP1 
1852 034532 ESCAPE TST sEXIT IF FATAL ERROR 
034532 104410 TRAP CSESCAPE 
034534 000520 L10064-. 
1853 034536 032762 000020 000006 BIT #XSOVCK ,XSTO(R2) zI1S VOLUME CHECK SET IN usv0° ? 
"B54 034544 001406 BEQ 30$ ZOKAY IF VOLUME CHECK IS SET 
1858 034546 016501 000002 MOV TSSR(RS), ZCONTENTS OF TSSR FOR ERROR REPORT 
1859 034552 ERRHRD ERRNO, Tosuek »PKTMES ZVOLUME CHECK NOT SET 
034552 104456 TRAP  CSERHRD 
034554 001445 «WORD 805 
034556 035057 <WORD  T8NVCK 
034560 012100 .WORD PKTMES 
1860 034562 30$:  CKLOOP ;LOOP ON ERROR ? 
034562 104406 TRAP — C$CLP1 
1861 034564 052714 040000 BIS #B1T14, (R4) :SET THE CVC BIT 
1862 034570 010465 000000 MOV R4, TSDB(RS) 3SET THE FACKET ADDRESS FOR WRITE CHAR 
1863 034574 004737 016326 JSR PC CHKTSSR WAIT FOR SSR TO SET 
1 34600 103405 BCS 35$ BR IF CARRY SET (Goo RETURN) 
1865 034602 010001 MOV RO,R1 [SAVE CONTENTS OF TSSR 
1869 034604 ERRDF ERRNO, T8SSR,PKTSSR :DEVICE FATAL SSR FAILED TO SET 
O3ccoe 104455 TRAP CSERDF 
034606 001446 -WORD 806 
034610 035150 .WORD T8SSR 
034612 012036 “WORD PKTSSR 
1870 034614 35$:  CKLOOP ;LOOP ON ERROR, IF FLAG SET 
4 104406 TRAP — CSCLP1 
1871 034616 ESCAPE TST ZEXIT IF FATAL ERROR 
034616 104410 TRAP  CSESCAPE 
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SEQ 0170 
034620 000434 .WORD 110064=. 
1872 034622 032762 000020 000006 BIT #XSOVCK ,XSTO(R2) z1S VOLUME CHECK CLEAR IN XSTO ? 
1873 034630 001406 BEQ 40$ ZOKAY IF VOLUME CHECK IS CLEARED 
1877 034632 016501 000002 MOV TSSR(RS) RI [CONTENTS OF TSSR FOR ERROR REPORT 
1878 0346 ERRHRD ERRNO, T8VCK,PKTMES :VOLUME CHECK NOT CLEARED 
034636 104456 TRAP  CSERHRD 
034640 001447 -WORD 807 
034642 035022 “WORD T8VCK 
034644 012100 “WORD  PKTMES 
1879 034646 40$:  CKLOOP :LOOP ON ERROR ? 
034646 104406 TRAP _— C$CLP1 | 
1880 034650 042714 040000 BIC WB1T14, (R4) :CLEAR THE CVC BIT | 
1881 034654 010465 000000 MOV R4, TSDB(RS) SSET THE PACKET ADDRESS FOR WRITE CHAR | 
1882 034660 004737 016326 JSR PC’ CHKTSSR SWAIT FOR SSR 
1883 0 103405 BCS 45$ 7BR IF CARRY SET (GOOD RETURN) | 
1884 0 010001 MOV RO,R1 :SAVE CONTENTS OF TSS 
1888 034670 ERRDF ERRNO, T8SSR,PKTSSR ‘DEVICE FATAL SSR FAILED TO SET 
034670 104455 TRAP CSERDF | 
034672 001450 «WORD 808 | 
034674 035150 “WORD T8SSR 
34676 012036 “WORD PKTSSR | 
1889 034700 45$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
104406 TRAP CSCLP1 
1890 034702 ESCAPE TST sEXIT IF FATAL ERROR | 
034702 104410 TRAP  CSESCAPE 
34704 000350 «WORD 110064-. 
1891 034706 032762 000020 000006 BIT #XSOVCK ,XSTO(R2) z1S VOLUME CHECK CLEAR IN XSTO ? 
1892 034714 001406 BEQ 50$ SOKAY IF VOLUME CHECK IS CLEARED 
18% 034716 016501 000002 MOV TSSR(RS) RI [CONTENTS OF TSSR FOR ERROR REPORT 
1897 034722 ERRHRD ERRNO, T8VCK,PKTMES sVOLUME CHECK NOT CLEARED 
034722 104456 TRAP  CSERHRD 
034724 001451 «WORD 809 
034726 035022 “WORD  T8VCK 
034730 012100 “WORD PKTMES | 
1898 034732 50$:  CKLOOP :LOOP ON ERROR ? | 
034732 104406 TRAP _— CSCLP1 | 
1899 034734 004737 016446 60$: JSR PC, TSTLOOP zsHOULD WE DO ITERATIONS ? 
1900 034740 103002 BCC 62$ ‘BRANCH IF 
1901 034742 000137 034370 JMP TSLOOP [LOOP UNTIL COUNT EXPIRED 
1902 034746 62$: EXIT TST sALL DONE THIS TEST 
034746 104432 TRAP  CSEXIT 
034750 000304 «WORD 110064-. 
1903 
1904 i+ 
1905 SLOCAL STORAGE FOR THIS TEST 
1906 - 
1907 
1909 034760 -=<.+10>8177770 
1911 934760 T8PACKET: :COMMAND PACKET FOR TEST 
1912 034760 1 .WORD 100004 [WRITE CHARACTERISTICS COMMAND 
1913 034762 034770 “WORD TS8DATA SADDRESS OF CHARACTERISTICS BLOCK 
1914 034764 000 “WORD 0 
1915 034766 000010 “WORD 10 ZSTARTING VALUE OF COUNTER 
1917 034770 T8DATA: :CHARACTERISTICS DATA BLOCK 
1918 034770 035002 .WORD  T8BFR SADDRESS OF MESSAGE BUFFER 
1919 034772 “WORD 0 
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8: VOLUME C 
1920 034774 000020 
1921 034776 000000 
1356 
196 035002 
1924 
1925 
1926 
1927 
1928 
1929 
1930 035022 126 
1931 035057 126 
1932 035150 103 
1933 035237 126 
1934 
1935 035254 


035254 
035254 104401 


—— 
MIMI 
ANNNN 


WORD 16. 
-WORD 0,0 


TS8BFR: .BLKW 8. 


3+ 
sLOCAL TEXT MESSAGES FOR TEST 


T8VCK: .ASCIZ ‘Volume Check Bit Not Cleared’ 
TENVCK: .ASCIZ ‘Volume Check Bit (VCK) Not Clear After Initialize (xST0O)°* 
T8SSR: .ASCIZ ‘Contents RF se Incorrect After Write Characteristics’ 


TST8ID: .ASCIZ ‘Volume Ch 
EVEN 
ENDTST 


sLENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 





TSVSA = HARDWARE TESTS 
EST 9: COMPLETION INTERRUPT 


1937 


1948 


BSz 
ovo 


OO000000 
Vw 
fwrn 


56 035256 
035256 


ee ad ed 
oO 
Ww 
w 


°) 

oOo 00 
BRS 
oo 
Ww 
watys 
w 

w 

rs 


0 
& 


1 

19 
19 
1986 
1987 
1 

1 


3 
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00 
000024 


040316 
000000 


015764 


002220 
002222 
000000 
016326 


002214 


qte Se Se Ge Se Se Se Se Ge Ge Ge Se Ge Ge Ge Be 


TOLOOK 


5$: 


10$: 


~ 
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~SBTTL TEST 9: COMPLETION INTERRUPT 


THIS TEST VERIFIES THAT AN INTERRUPT IS yp el AT THE 
COMPLETION OF THE WRITE CHARACTERISTICS COMMAND IF THE at ata 
ENABLE (IE) BIT IN THE COMMAND HEADER WORD IS SET. THIS TEST 
CHECKS THE FUNCTIONING OF THE INTERRUPT LOGIC AND BASIC 
PROCESSING OF THE IE BIT. 


THE SEQUENCES OF TEST 7 ARE weer fi EXCEPT THAT THE INTERRUPT 
SERVICE ROUTINE IS uA UP E IT 


NERATED.« COMMANDS ARE ISSUE 
FIRST WITH IE=1 AND THE SECOND WITH IE=0. IT IS VERIFIED "EMA 
NO INTERRUPT 15 GENERATED AFTER THE SECOND COMMAND AND THAT THE 
IE BIT IN XSTO IS 0. 
BGNTST Be 
CLR EXTFEA ZCLEAR EXTENDED FEATURES SWITCH 
MOV ATSTIID,RO SASCII MESSAGE To IDENTIFY TEST 
JSR PC, TSTSETUP [D0 INITIAL TEST SETUP 
MOV #20. ,LOOPCNT [PERFORM 20 ITERATIONS 
BGNSUB 


TRAP 


PC, TOREST SET PACKET TO INITIAL VALUES 


JSR 
SETPRI #PRIO0 


LOWER PRIORITY TO ALLOW INTERRUPTS 
MOV #PR 


CSERDF 


SEQ 0172 


LA oa Wr mead UU 
C$B8SUB 


190,R0 
TRAP CSSPRI 
MOV #TSTBLK+10. .R3 sSTART OF TEST DATA 
MOV #TOPACKET,R4 :GET THE ADDRESS OF COMMAND PACKE) 
MOV #8. ,PKBCNT(R4) ZSTART WITH MINIMUM ALLOWABLE VALUE 
BGNSEG 3>>>>>>>>>>>> BEGIN etna 1 >>>>>>>>>>>> 
TRAP CSBSEG 
JSR PC, SOF INIT 3D0 SOFT INIT o CONTROLLER 
BCS 10$ <BR IF SOFT INIT = OK 
MOV RO,R1 7 SAVE CONTENTS 0 F TSSR 
ERRDF ERRNO,SFIERR,SFIMSG :DEVICE FATAL ERROR OUnINS INIT 
TRAP CSERDF 
901 
WORD SFIERR 
WORD SF IMSG 
CLR FATFLG 7CLEAR FATAL ERROR FLAG 
CLR INTRECV [CLEAR INTERRUPT RECEIVED FLAG 
MOV R4, TSDB(RS) SET = PACKET ADDRESS 
JSR PC, CHKTSSR ‘WAIT FOR SSR ET 
BCS 15$ 7BR IF CARRY SET (GOOD RETURN? 
V RO,R1 sSAVE CONTENTS TSSR 
ERRDF ERRNO, T9OSSR,PKTSSR DEVICE FATAL SSR FAILED . SET 
























035402 
035404 
035406 
1993 035410 
1994 035414 
035414 
1995 035416 
035416 
035420 
1996 035422 


1997 035426 
2001 035430 
035430 


035474 
2013 035476 
2014 035476 
035476 
035476 

2015 
2016 035500 
2019 035512 

020 
2021 035516 
035516 
035516 

2022 
2023 035520 


2029 035546 
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012036 


104405 


012364 
020327 
103002 


sonar | M1113 25-MAY-82 08:41 


9: COMPLETION INTERRUP 


002222 


000002 
000200 
000100 
000100 


000006 
003056 


035332 


002220 


017172 
037254 


002224 


000200 


15$: 


228: 


25$: 


30$: 


55$: 


603: 


INC 
CKLOOP 
ESCAPE 


TST 
BNE 
ERRHRD 


Q 
ERRHRD 


ENDSEG 
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FATFLG 
SEG 


— 
ERRNO, TONINT ,PKTSSR 


TSSR(R5),R1 

#SSR,R2 
#OFL.RI 
#OFL,R2 
R2,R1 


os 
ERRNO, TONBA,PKTSSR 


(R3) +, PKBCNT(R4) 
R3,4TBLEND 

55$ 

5$ 


FATFLG 

60$ 

PC, CKDROP 
TOBFR+12,#B1T7 
70$ 

EXTFEA 


«WORD 902 
-WORD TISSR 
«WORD PKTSSR 

zSET FATAL ERROR FLAG 

:LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 

sBY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
"WORD 10000$-. 

;DID AN INTERRUPT OCCUR ? 

sBRANCH IF YES 
TRAP CSERHRD 
-WORD 903 
WORD TONINT 
- WO PKTSSR 

sGET THE CONTENTS OF TSSR 

EXPECTED Ts OF 5 FSR 

21S a i te ae SET 

BRANCH IF NO 1 OFF<LINE 

sSET OFF-LINE IN EXPECTED DATA 

DOES EXPECTED MATCH RECEIVED ? 

sOKAY IF MATCH 

NBA NOT ZERO 
TRAP CSERHRD 
WORD 904 
-WORD TONBA 
-WORD PKTSSR 


SEQ 0173 


BRRR RRR ERK KK cy Yl KKKKK KKK KKK KK 


7240 C$ESEG 
:SET THE TEST wORD 

[HAS ALL DATA BEEN TESTED ? 

[BRANCH IF ALL DATA DONE 

BRANCH TILL BACK TO ZERO 


TVAAAAAAAAAAAA END SUBTEST AAANAVAAAAAAA 
“ TRAP = CSESUB 

ZANY FATAL ERRORS ? 

*BRANCH IF NOT 

STRY TO DROP THE UNIT 

ZEXTENDED FEATURES SET? 


SET EXT FEATURE FLAG 
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TEST 9: COMPLETION INTERRUPT SEQ 0174 
2031 3+ 
2032 3 
$03 zTEST 9, SUBTEST 2 
2035 3CHECK THAT UNUSED BITS BEING SET CAUSES 
2036 SWRITE CHARACTERISTICS COMMAND TO BE REJECTED 
3039 . 
2040 035546 BGNSUB LLL BEGIN SUBTEST /////IIIIIUT 
aaa 035546 104402 TRAP  C$BSUB 
2042 035550 SETPRI #PRIOO SLOWER PRIORITY TO ALLOW INTERRUPTS 
035550 012700 000000 mov #PRI00,RO 
035554 104441 RAP _— C$SPRI 
2043 035556 012703 037262 MOV ATO2DATA,R3 ySTART OF TEST DATA FOR SUBTEST 
2044 035562 012704 037220 5$: MOV ATOPACKET,R4 :GET THE ADDRESS OF COMMAND PACKET 
2045 035566 004737 040316 JSR PC, TOREST SRESTORE PACKET TO STARTING VALUES 
2047 035572 BGNSEG 3>>>>>>>>>>>> BEGIN “or >>>>>>>>>>>> 
mek 035572 TRAP  C$BSEG 
2049 035574 015764 JSR PC, SOFINIT :D0 SOFT INIT OF CONTROLLER 
2050 035600 BCS 10$ ‘BR IF SOFT INIT = OK 
2054 035602 MOV RO,R1 sSAVE CONTENTS OF TSSR 
2055 035604 ERRDF ERRNO, SFIERR,SFIMSG ‘DEVICE FATAL ERROR DURING INIT 
104¢55 TRAP CSERDF 
035606 001671 -WORD 905 
035610 003645 -WORD SFIERR 
035612 012024 .WORD SFIMSG 
2056 035614 005037 002222 10$: CLR INTRECV ZCLEAR INTERRUPT RECEIVED FLAG 
2057 035620 010400 MOV R ZSTART OF THE COMMAND PACKET 
2058 035622 061300 P ADD (R3) ,RO ZOFFSET TO THE DATA WORD TO TEST 
035624 056310 000002 BIS 2(R3), (RO) 3SET THE DATA BITS TO BE IZSTED 
2060 035630 010465 000000 MOV R4, TSDB(RS) :SET THE PACKET ADDRE 
2061 035634 004737 016240 JSR PC ,WAITF sWAIT FOR SSR TO SET 
2062 235640 103405 BCS 15$ i :BR IF CARRY SET (GOOD RETURN) 
2063 035642 010001 MOV RO,R1 ZSAVE CONTENTS OF TSS 
2067 035644 ERRDF ERRNO, T9SSR,PKTSSR :DEVICE FATAL SSR FAILED TO SET 
935644 104455 TRAP CSERDF 
035646 001612 GORD 906 
035650 037737 -WORD T9SSR 
035652 012036 .WORD PKTSSR 
2068 035654 15$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
935654 104406 TRAP CSCLP1 
2069 035656 ESCAPE SEG sBY-PASS CHECKS IF FATAL ERROR 
035656 104410 RAP CSESCAPE 
035660 000056 TOORD 10000$-. 
2070 035662 005737 002222 TST INTRECV 7DID AN INTERRUPT OCCUR ? 
2071 035666 001004 BNE 22$ ‘BRANCH IF YES 
2075 035670 ERRHRD ERRNO, TONINT,PKTSSR 
035670 104456 TRAP  CSERHRD 
035672 001613 .WORD 
035674 040026 -WORD TONINT 
035676 012036 PKTSSR 
2076 035700 016501 000002 22$: MOV TSSR(RS),RI1 GET THE CONTENTS OF TSSR 
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2077 035704 


2093 035752 

2094 

2095 035756 
035756 
035756 


012702 
032701 


012036 


104405 


062703 
020327 
103002 
000137 


104403 
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9: COMPLETION INTERRUPT 


102206 
000100 


000100 


000004 
037276 


035562 


25$: 


30$: 


59$: 


SEQ 0175 


MOV #SC!SSR!TSREJ!NBA,R2 sEXPECTED CONTENTS OF 51 SSR 

BIT #OFL,R1 31S OFF-LINE BIT SET 

BEQ 25$ <BR ANCh IF NOT OFF TIME 

BIS #OFL,R2 sSET OFF-LINE IN EXPECTED DATA 

CMP R2 Ri DOES iP hare MATCH RECEIVED ? 

BEQ 0 sOKAY IF MA 

ERRHRD ERRNO, T92REJ,PKTSSR + COMMAND NOT REJECTED 
TRAP CSERHRD 
«WORD 908 
eWORD ‘T92REJ 
-WORD PKTSSR 

ENDSEG BMRR RRR ERK i I+ veal RRR KKK KR KK 
TRAP CSESEG 

ADD #4 ,R3 :POINT TO oy DATA PAIR 

CMP R3,4T9I2DONE sCOMPARE TO END OF TEST DATA 

BHIS 59§ TBRANCH IF ALL DATA TESTED 

JMP 5$ sBRANCH TILL BACK TO ZERO 

ENDSUB S\NNNANANAAAAN END SUBTEST \ANNANAAAAAAA 

L10067: 


" TRAP —« CSESUB 


H 14 
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TEST 9: COMPLETION INTERRUPT SEQ 0176 





097 
2098 
099 


Rononenen = Porororor 
ijt atte So 
nN 

oooo oo Sse 

RRS RAIA 
On & ES 


104402 


~~ 


_ 012700 


012036 
104406 


“000000 


000001 
037220 
040316 


015764 


002222 
000006 


000000 
016240 


002222 


10 
000100 


Ba 


:TEST 9, SUBTEST 3 


CHECK THE WRITE CHARACTERISTICS COMMAND IS REJECTED 
2IF ISSUED WITH AN INVALID DATA BLOCK BYTE COUNT 


BGNSUB 
SETPRI #PRIOO 


5$: MOV arSPACKET, R4 
JSR PC, TOREST 


JSR PC,SOF INIT 
10$ 


RO.R1 
ERRDF  ERRNO,SFIERR,SFIMSG 


10$: CLR INTRECV 
MOV R3,PKBCNT(R4) 
MOV R4, TSDB(RS) 
JSR PC. WAITF 
BCS 15$ 


MO RO,R1 
ERRDF ERRNO, T9SSR,PKTSSR 


15$: CKLOOP 
ESCAPE SFG 


Hy INTRECV 
ERRHRD ERRNO, TONINT,PKTSSR 


22$: MOV TSSR(R5S), 
MOV #8 SSR SRE NBA, R2 
BIT #OFL,R1 


s//1111111117 BEGIN SUBTEST FAVA ASAT 


TRAP C$BSUB 
sLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV #PRIO0,RO 

TRAP CSSPRI 


sSTARTING BYTE COUNT 
3GET THE ADDRESS OF COMMAND PACKET 
sRESTORE PACKET TO STARTING VALUES 


3>>>>>>>>>>>> BEGIN —— >>>>>>>>>>>> 
TRAP CSBSEG 


D0 SOFT INIT OF CONTROLLER 
BR IF SOFT INIT “=. 
:SAVE CONTENTS OF _TSSR 
:DEVICE FATAL ERROR seat INIT 


CSERDF 

TGORD 909 
-WORD  SFIERR 
«WORD SFIMSG 

SCLEAR_INTERRUPT RECEIVED FLAG 

s INSERT THE BYTE COUN: FOR TEST 

3SET THE PACKET ADDRESS 

WAIT FOR SSR TO SET 

TBR IF CARRY SET (GOOD RETURN) 

zSAVE CONTENTS OF TSSR 

DEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WORD 910 
WORD T9SSR 
-WORD PKTSSR 

:LOOP ON ERROR, IF FLAG SET 
RAP CSCLP1 

BY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
° 10000$-. 

DID AN INTERRUPT OCCUR ? 

BRANCH IF YES 
TRAP CSERHRD 
-WORD 911 
-WORD TONINT 
-WORD PKTSSR 


2GET THE CONTE®TS OF TSSR 
EXPECTED CONTENTS OF Paes 
21S OFF-LINE BIT SET 


Hy 
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T 9: COMPLETION INTERRUPT 
2143 036122 061402 BEQ 25$ 
2144 036124 052702 000100 BIS #OFLR2 
2145 036130 020201 25$: CMP R2,Ri 
2146 036132 001404 BEQ 30 
2150 036134 ERRHRD ERRNO, T93REJ,PKTSSR 

036134 10445 

036136 001620 

036140 037450 

036142 012036 
2151 036144 30S: 
2152 036144 ENDSEG 

036144 
a 036144 104405 
2154 036146 005203 INC R3 
2155 036150 020327 000006 CMP R3,86 
2156 036154 00200 BGE 59$ 
2157 036156 000137 035774 JMP S$ 
2159 036162 59$:  ENDSUB 

0361 


BRANCH IF NOT OFF=LINE 
sSET OFF-LINE IN EXPECTED DATA 
DOES EXPECTED MATCH RECEIVED ? 
sOKAY IF MATCH 
[COMMAND NOT REJECTED 
oc ype 


-WORD 91 
WORD T9SREJ 
PKTSSR 


WORD 
BRR RRR KKK a +S tall RRR EKER R KKK 
" TRAP — CSESEG 


sNEXT BYTE COUNT 


: EST DONE 
‘BRANCH TILL BACK TO ZERO 
S\NNAAANANAAAN END SUBTEST \\NANANANAAAA 
L10070: 
TRAP CSESUB 
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TEST 9: COMPLETION INTERRUP SEQ 0178 
2161 3+ 
$l6¢ : 
e163 STEST 9, SUBTEST 4 
2165 ;SUBTEST TO VERIFY THAT A WRITE CHARACTERISTICS COMMAND IS 
2166 SREJECTED IF AN ILLEGAL DATA BLOCK ADDRESS IS ISSUED. 
sig a 
Pe 
2170 iota] BGNSUB TILA MALL ie eee VISITAS 
ran 036164 104402 TRAP  C$BSUB 
2172 036166 SETPRI #PRIOO sLOWER PRIORITY TO ALLOW INTERRUPTS 
036166 012700 000000 MOV #PR100,RO 
036172 104441 CSSPRI 
2173 036174 012703 037262 MOV ATI2DATA,R3 ZSTART OF TEST DATA FOR SUBTEST 
2174 036200 012704 037220 5$: MOV ATOPACKET RG :GET THE ADDRESS OF COMMAND PACKET 
$173 036204 00473 040316 JSR PC, TOREST sRESTORE PACKET 10 STARTING VALUES 
2177 
2178 036210 737 015764 JSR PC,SOFINIT 3D0 SOFT INIT OF CONTROLLER 
2179 036214 103405 BCS 10$ 7BR IF SOFT INIT = Ok 
2183 036216 010001 MOV RO,R1 SSAVE CONTENTS OF TSSR 
2184 036220 ERRDF ERRNO, SFIERR, SF IMSG ‘DEVICE FATAL ERROR DURING INIT 
036220 104455 TRAP — CSERDF 
036222 001621 «WORD 913 
036224 003646 -WORD  SFIERR 
036226 012024 .WORD SFIMSG 
2185 036230 005037 002222 10$: CLR INTRECV 3CLEAR INTERRUPT RECEIVED FLAG 
2186 036234 052737 000001 037230 BIS #1, TSDATA [MAKE ADDRESS ODD 
2187 036242 010465 000000 MOV R4.TSDB(RS) iSET THE PACKET ADDRESS 
2188 036246 004737 016240 JSR PC. WAITF SWAIT FOR OR SSR TO SET 
2189 036252 103405 BCS 15$ 7BR IF C SET (GOOD RETURN) 
2190 036254 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 
2194 036256 ERRDF ERRNO, T9SSR,PKTSSR ZDEVICE FATAL SSR FAILED TO SET 
036256 104455 TRAP — CSERDF 
036260 001622 «WORD 914 
036262 037737 -WORD TOSSR 
036264 012036 -WORD PKTSSR 
2195 036266 15$:  CKLOOP ;LOOP ON ERROR, IF FLAG SET 
036266 104406 TRAP _— CS$CLP1 
2196 036270 ESCAPE SUB ;BY-PASS SUBTEST IF FATAL ERROR 
0362 104410 CSESCAPE 
00005 TeORD L10071-. 
3197 7 036974 005737 002222 TST INTRECV 3DID AN INTERRUPT OCCUR ? 
001 BNE *BRANCH IF YES 
$305 osc3e5 ERRHRD ERRNO, TONINT,PKTSSR 
10445 TRAP  CSERMRD 
Osean 00162 «WORD 915 
0 040026 <WORD TONINT 
036310 012036 D T3SR 
2203 036312 016501 000002 22$: Mov TSSR(RS)R 3GET THE CONTENTS OF TSSR 
2204 036316 012702 102206 MOV bSC | SSR TSREJ!NBA, R2  SEXPECTED CONTENTS OF ,TSSR 
2205 036322 032701 000100 BIT #OFL,R1 :1S OFF-LINE BIT Set 2 ; 
2206 036326 001402 BEQ SBRANCH IF NOT OFF-LINE 
2207 036330 052702 000100 BIS #OFL,R2 ZSET OFF-LINE IN EXPECTED DATA 
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TEST 9: COMPLETION INTERRUPT 


2208 036334 020201 25$: CMP R2,R1 
Fr 36336 001404 BEQ 30 
2213 036340 ERRHRD ERRNO, T94REJ,PKTSSR 


36350 30$: 
ENDSUB 


oo oo 


oO 

Pay 
ane 
ooo 


uw 
oO 





_ SEQ 0179 


DOES EXPECTED MATCH RECEIVED ? 

sOKAY IF MAT 

: COMMAND NOT REJECTED 

TRAP CSERHRD 
WORD 916 


«WORD T94REJ 
-WORD PKTSSR 


S\NVAANANAAANN END SUBTEST \ANANVAAANANA 
L10071: 
TRAP CSESUB 
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SEQ 0180 


i TEST 9: COMPLETION INTERRUPT 


2 
2228 036352 
036352 
036352 
2230 036354 
036354 
036360 
2231 036362 
2232 036366 
2233 036372 
2234 
2235 036376 
036276 
2236 
2237 036400 
2238 036404 
2242 036406 
2243 gerele 


036452 
2254 036454 
2255 036456 
036456 


2264 036510 


104402 


012700 
04 


012036 
104406 
104410 
00005 


ooo 
_ 
La] 
“ 
=] 
— 


32701 


000000 


000001 
037220 
040316 


015764 


002222 
037234 
000000 
016240 


002222 


000002 
102206 
000100 


+ 


:TEST 9, SUBTEST 5 


[CHECK THAT WRITE CHARACTERIST 
[MESSAGE BUFFER LENGTH SPECIFI 


5$: 


10$: 


15$: 


228: 


BGNSUB 


SETPRI 


CKLOOP 
ESCAPE 


TST 
BNE 
ERRHRD 


#PRICO 


STSPACKET, R4 

PC, TOREST 

PC,SOFINIT 

10$ 

RO,R1 

ERRNO, SFIERR, SF IMSG 
INTRECV 

R3, TODATA+G 
R4.TSDB(RS) 

PC WAITF 

15$ 
RO,R1 

ERRNO, T9SSR,PKTSSR 


SEG 


INTRECV 
ERRNO, TONINT ,PKTSSR 


TSSR(R5S)R 
PSC SSR! TSREJ!NBA, R2 
#OFL,R1 





ICS COMMAND IS REJECTED IF THE 
ES AN INVALID COUNT (LESS THAN 14) 


s/IIII1111111 BEGIN SUBTEST /////////11/ 


TRAP C$BSUB 
LOWER PRIORITY TO ALLOW ee 

MOV #PRI00,RO 

TRAP CSSPRI 


ate BUFFER LENGTH 
GET THE ADDRESS OF COMMAND PACKET 
RESTORE PACKET TO STARTING VALUES 


3>>>>>>>>>>>> BEGIN sad, >>>>>>>>>>>> 
TRAP CSBSEG 


D0 SOFT INIT OF CONTROLLER 
BR IF SOFT INIT = Ok 
zSAVE CONTENTS OF TSSR 
:DEVICE FATAL ERROR —_ 


CSERDF 
WORD 917 
a SFIERR 
WORD SFIMSG 
2 CLEAR oe RECEIVED FLAG 
INSERT THE BAD MESSAGE LENGTH 
2SET_THE PACKET ADDRESS 
WAIT FOR SSR TO SET 
BR IF CARRY SET a re RETURN) 
zSAVE CONTENTS OF TSSR 
;DEVICE FATAL SSR FAILED A SET 
TRA CSERDF 
"WORD 918 
WORD T9SSR 
«WORD PKTSSR 
LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
BY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
° 10000$-. 
DID AN INTERRUPT OCCUR ? 
BRANCH IF YES 
TRAP CSERHRD 
-WORD 919 
WORD TONINT 
«WORD PKTSSR 


GET THE CONTENTS OF TSSR 
EXPECTED CONTENTS OF Poe 
:IS OFF-LINE BIT SET 










2265 oae3t¢ 
. 2266 036516 
2267 oeeese 
* 2268 036524 

2272 Oacese 


2278 036546 
2279 036550 


0 
2281 036554 
036554 
036554 


104405 


005203 
020327 
002002 
000137 


104403 


000100 


000014 
036366 


25$: 


30$: 


59$: 


8 
ERRHRD 


ENDSEG 
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25$ 
#OFL,R2 
R2 Ri 


30 
ERRNO, TOSREJ,PKTSSR 


R3 
R3,414 


BRANCH IF NOT OFF=LINE 


sSET OFF-LINE IN EXPECTED DATA 
:DOES iF haitn MATCH RECEIVED ? 


MATCH 
COMMAND NOT REJECTED 
TRAP CSERHRD 
WORD 920 
WORD T9SREJ 
«WORD PKTSSR 


3 <KKKEK KK KKK END SEGMENT <<<<KK<KCKCKKCKK 
10000$: 


" TRAP —« CSESEG 


NEXT BUFFER LENGTH 

sHAVE ALL BAD VALUES BEEN TESTED ? 
BRANCH IF ALL TESTE 

BRANCH TILL BACK TO ZERO 


S\VNANAANAANAN END SUBTEST \ANANAAAAAAAA 
L10072: 


TRAP C$ESUB 





2294 
2295 036556 
036556 


036556 
2296 036560 
2297 036564 
2298 036566 
2299 036572 
2300 
2301 036576 

036576 


036602 
2302 036604 
2303 036610 
2304 036614 
2305 036622 
2306 036622 

036622 


2307 

2308 036624 
2309 036630 
2313 036632 
2314 036634 


NMorohmenononorgs 


6 
2325 036700 
2326 036704 


04 
2327 036706 
06 


004737 


012700 


104410 
000056 
005737 
001004 
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002224 
037006 
040316 
000000 
002762 


037220 
000012 


015764 


002220 


0 
016326 


002220 


002222 
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:TEST 9, SUBTEST 6 


ZOR GREAT 
. BGNSUB 
TST EXTFEA 
BNE 4$ 
JMP 55$ 
4$: JSR PC, TOREST 
SETPRI #PRIOO 
MOV #TSTBLK+10. .R3 
MOV #TOPACKET RG 
000006 - MOV #10. ,PKBCNT(R4) 
' BGNSEG 
JSR PC, SOF INIT 
BCS 10$ 
Ov RO,R1 
ERRDF ERRNO, SFIERR, SF IMSG 
10$: CLR FATFLG 
CLR INTRECV 
MOV R4, TSDB(RS) 
JSR PC’ CHKTSSR 
BCS 15$ 
Ov RO,R1 
ERRDF ERRNO, T9SSR,PKTSSR 
INC FATFLG 
15$:  CKLOOP 
ESCAPE SEG 


TST INTRECV 
3NE 228 


racer me» ere UU 


C$BSUB 
sIS EXTENDED FEATURES sorte SW SET? 
:BR tr's utes SWITCH IS SET (ON) 


SUBTES 
SET PACKET TO START-UP VALUES 
sLOWER PRIORITY TO — 


SEQ 0182 


#PRIO0,RO 
TRAP CSSPRI 
START OF TEST DATA 
GET THE ADDRESS OF COMMAND PACKET 


START WITH EXTENDED FEATURES VALUE 
3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 


TRAP C$BSEG 
D0 SOFT INIT OF CONTROLLER 
BR IF SOFT INIT = Ok 
sSAVE CONTENTS OF TSSr 
DEVICE FATAL ERROR vo > pur 
CSERDF 
ORD 921 
«WORD SFIERR 
-WO°D SFIMSG 
sCLEAR FATAL ERROR FLAG 
CLEAR INTERRUPT RECEIVED FLAG 
:SET_THE PACKET ADDRESS 
aT FOR SSR TO SET 
R IF CARRY SET ‘soee RETURN) 
SAVE CONTENTS OF TSSR 
DEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
«WORD 922 
«WORD T9SSR 
«WORD PKTSSR 
sSET FATAL ERROR FLAG 
LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
sBY-PASS SUBTEST IF naan, Me 
RAP CSESCAPE 
10000$-. 


sDID AN INTERRUPT OCCUR ? 
SBRANCH IF YES 
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9: COMPLETION INTERRUP SEQ 0183 

2333 036720 ERRHRD ERRNO, TONINT,PKTSSR 
036720 10445 TRAP CSERHRD 
036722 00163 WORD 92 
036724 040026 -WORD TONINT 
036726 0120 -WORD PKTSSR 

2334 036730 016501 000002 22$: MOV TSSR(RS),R1 :GET THE CONTENTS OF TSSR 

2335 036734 012702 000200 MOV #SSR_.R2 TEXPECTED CONTENTS OF _tSSR 

2336 036740 032701 000100 BIT #OFL,R1 21S OFF<LINE BIT SET 

2337 036744 001402 BEQ 25$ :BRANCH IF NOT OFF=L LINE 

2338 036746 052702 000100 BIS #OFL,R2 3SET OFF-LINE IN EXPECTED DATA 

2339 036752 020201 25$: CMP R2,Ri [DOES EXPECTED MATCH RECEIVED ? 

2340 036754 001404 BEQ 30$ ZOKAY IF MATCH 

2344 036756 ERRHRD ERRNO, TONBA,PKTSSR [NBA NOT ZERO 
036756 104456 TRAP  CSERHRD 
036760 001634 -WORD 924 
036762 037276 -WORD TONBA 

764 012036 -WORD PKTSSR 

2345 036766 30S: 

2346 036766 ENDSEG SKK KKK END SEGMENT <<<Kd<<dKdKe<<< 
036766 10000$: 

—_ 036766 104405 TRAP (C$ESEG 

2348 036770 012364 000006 MOV (R3) +, PKBCNT(R4) 3SET THE TEST WORD 

2349 036774 020327 003056 CMP TBLEND SHAS ALL DATA BEEN TESTED ? 

2350 037000 103002 BHIS 55$ ‘BRANCH IF ALL DATA DONE 

2351 037002 000137 036622 JMP 5$ [BRANCH TILL BACK TO ZERO 

2353 037006 55$: ENDSUB Z\VVAVAAAAAAAN END SUBTEST \NAAAAAAAAAAA 
037006 L10073: 


037006 104403 TRAP CSESUB 


ee en 








TEST 9: COMPLETION INTERRUPT 


7010 
037010 

365 
2366 037012 
012 


016 
2367 037020 
2368 637024 


2377 037054 
060 


04 
2387 037106 
037106 
037110 
2388 037112 
2389 037116 
2393 937120 
037120 
712 
2394 gorlee 
037130 
2395 
Sino 037132 


2400 037182 





000000 
037220 


040316 
015764 


00 
016326 


002222 


002222 
000200 
000000 
016326 


3+ 


C 15 
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:TEST 9, SUBTEST 7 
STEST WRITE CHARACTERISTICS WITH/WITHOUT INTERRUPTS ENABLED 


10$: 


15$: 


228: 


BGNSUB 


SETPRI 


TST 


#PRI00 


Aga AE R4 
PC, TOREST 
PC,SOF INIT 


10$ 


RO,R1 
ERRNO, SF IERR, SF IMSG 


INTRECV 
#B1T7, (R4) 
R4,TSDB(R5) 
PC CHKTSSR 
15$ 


RO,R1 
ERRNO, T9SSR,PKTSSR 


SUB 


Sg 
ERRNO, TONINT ,PKTSSR 


INTRECV 
#B1T7,(R4) 
ot Pho bet 


25$ 


CHKTSSR 


SEQ 0184 


IIIITITITTTT «BEGIN SUBTEST ///S/IIIIIT 
"TRAP —sC$BSUB 


sLOWER PRIORITY TO ALLOW INTERRUPTS 
we #PRIO0,RO 
TRAP CSSPRI 
sGET THE Fanny’ y OF COMMAND PACKET 
SET UP_A VALID PACKET 
:D0 SOFT uae OF CONTROLLER 
BR IF SOFT INIT = Ok 
zSAVE CONTENTS OF TSSR 
:DEVICE FATAL ERROR tae Oe 


CSERDF 

WORD 925 
WORD SFIERR 
WORD SFIMSG 

sCLEAR_INTERRUPT RECEIVED FLAG 

ENABLE INTERRUPTS 

:SET_THE PACKET ADDRESS 

WAIT FOR SSR TO S 

sBR IF CARRY SET (GOOD RETURN) 

sSAVE CONTENTS OF TSSR 

DEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
WORD 926 
-WORD T9SSR 
° PKTSSR 

:LOOP ON ERROR, IF FLAG SET 
RAP CSCLP1 

2BY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
«WORD 110074-. 

:DID AN oe. OCCUR ? 

BRANCH IF ‘ES 
TRAP CSERHRD 
WORD 927 
WORD TONINT 
WORD PKTSSR 

LOOP ON ERROR ? 
TRAP CSCLP1 

: CLEAR gine RECEIVED FLAG 

DISABLE INTERRUPTS 


SET THE waexet ADDRESS 
WAIT FOR SSR TO SET 
2BR IF CARRY SET (GOOD RETURN) 


en 


TSVSA = HARDWARE TESTS 
TES? 


2401 037154 
2405 037156 
037156 
037160 
037162 
037164 
2406 037166 
2407 037170 
037170 
037172 
2408 037174 
2409 037200 
2413 037202 
037202 
037204 
7206 
037210 
2414 037212 
2415 037212 
037212 
037212 

2416 
2417 037214 
037214 
037216 


2 
2451 037262 


010001 
104455 
001640 
037737 
012036 
104406 
104410 


000020 
005737 002222 
001404 


100204 
037230 
000000 
000010 
037242 
000000 


000016 
000000 000009 





MACRO M1113 25-MAY-82 08:41 
9: COMPLETION INTERRUPT 


MOV 
ERRDF 


25$: CKLOOP 
ESCAPE 


TST 


BEQ 
ERRHRD 


30$: 
ENDSUB 


EXIT 


3+ 
sLOCAL STORAGE 


TOPACKET: 
TODATA: 


TOBFR: 
*+ 


[TEST DATA FOR 


D 15 
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RO,R1 
ERRNO, T9SSR,PKTSSR 


SUB 


INTRECV 
ERRNO, T9INT ,PKTSSR 


TST 


FOR THIS TEST 


100204 
— 


SUBTEST TWO 


[DATA HAS FORMAT: 


T92DATA: 


1ST WORD 
2ND WORD 


sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 


SEQ 0185 
RAP CSERDF 
WORD 928 
«WORD T9ISSR 
«WORD PKTSSR 


;LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


sBY-PASS SUBTEST IF caso, yu 


zDID AN Sie OCCUR 


BRANCH IF 


CSESCAPE 


«WORD L10074-. 


~ 


Z\AVAAAANAAANN END SUBTEST \NVAAAAVAAAAN 
L10074: 


sALL DONE THIS TEST 


TRAP  CSERHRD 
.WORD 929 
“WORD TOINT 
“WORD PKTSSR 

“ TRAP  —« CSESUB 
TRAP  C$EXIT 
«WORD 110065-. 


COMMAND PACKET FOR 8 


WRITE CHAR 


HAR COMMAND, WITH IE, 
ZADDRESS OF CHARACTERISTICS BLOCK 


ACK 


sSTARTING VALUE OF BLOCK SIZE 


s CHARACTERISTICS DATA BLOCK 
zADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 


OFFSET TO TEST WORD IN PACKET 
BITS TO SET FOR 


TEST 


—_—— rrr 


E 1 
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TEST 9: COMPLETION INTERRUPT SEQ 0186 
oo26 037262 000000 037140 eWORD O,BITS!BIT6!BIT9!BIT10!B1T11!B1T12'B1T13 
2453 037266 000002 000001 eWORD 2,B1T0 
2454 037272 000004 100100 eWORD 4,BIT6!BIT15 
2455 037276 T92DONE=. 
2456 
2457 
2458 3+ 
2459 sLOCAL TEXT MESSAGES FOR TEST 
set ” 
2462 037276 127 122 111 : .ASCIZ ‘WRITE CHARACTERISTICS Command Not Accepted‘ 
2463 037351 127 122 111 T9ZREJ: .ASCIZ ‘WRITE CHARACTERISTICS Not Rejected With Non-Zero Unused Fields’ 
2464 037450 127 122 111 TOSREJ: .ASCIZ ‘WRITE CHARACTERISTICS Not Rejected With Invalid Data Count’ 
2465 037543 127 122 111 T94REJ: .ASCIZ ‘WRITE CHARACTERISTICS Not Rejected With Invalid Block Address’ 
2466 37641 127 122 111 TOSREJ: .ASCIZ ‘WRITE CHARACTERISTICS Not Rejected With Invalid Buffer Length’ 
2467 037737 103 157 156 T9SSR: .ASCIZ ‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS’ 
2468 040026 105 170 160 TONINT: .ASCIZ ‘Expected Interrupt Not Received On WRITE CHARACTERISTICS’ 
2469 040117 125 156 145 T9INT: .ASCIZ ‘Unexpected Interrupt Received On WRITE CHARACTERISTICS’ 
2470 040206 111 156 143 TOTSBA: .ASCIZ "Incorrect TSBA Address After WRITE CHARACTERISTICS‘ 
2471 040271 103 157 155 TST9ID: .ASCIZ ‘Completion Interrupt’ 
Be a 


TEST 








2 
2482 040316 
soar 040316 


2495 366 
2496 040370 

040370 
040370 





104401 


037220 
100204 
037230 


000010 
037242 


000016 


037242 


TSVSA = HARDWARE TESTS ae M1113 25-MAY-82 08:41 
9: COMPLETION INTERRUPT 


F 15 


PAGE 104 


sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 


TOREST: 


R 
ENDTST 





#TOPACKET,R1 
#100204, (R1)+ 
trie (R1)4+ 


#8., 
ATS6rR. (RI) 


Hees a REGISTERS 
iSTAR T OF THE PACKET 

WRITE gg be ey WITH ACK, IE 
ADDRESS OF CHAR DATA BLOCK 
sEXTENDED ADDRESS 
SIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 
CLEAR 1ST LOC IN MESSAGE BUFFER 
sRETURN 


L10065: 


TRAP CSETST 


SEQ 0187 
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TEST 10: BASIC PACKET PROTOCOL SEQ 0188 
2498 .SBTTL TEST 10: BASIC PACKET PROTOCOL 
2500 : THIS TEST VERIF LES BASIC OPERATION OF THE MESSAGE BUFFER RELEASE 
2501 : COMMAND, THE FUNCTION OF THE ACK BIT IN THE COMMAND HEADER WORD, 
g90¢ ; AND THE REGISTER MODIFICATION REFUSED (RMR) LOGIC. 
2504 : 
2505 + 
2506 ;TEST 10 SUBTEST 1 
2508 CHECKS _ THE MESSAGE BUFFER RELEASE COMMAND WORKS 
2509 PROPERLY AND THAT NO INTERRUPT IS GENERATED EVEN 
510 IF THE IE’ BIT IS SET IN THE COMMAND PACKET 
2512 = 
2513 040372 BGNTST 
040372 T10:: 
2518 040372 012700 043317 MOV #TST101ID,RO ZASCII MESSAGE TO IDENTIFY TEST 
2519 040376 0604737 016500 JSR PC, TSTSETUP :D0 INITIAL TEST SETUP 
2520 040402 012737 000024 002214 MOV #20. ,LGOPCNT :PERFORM 20 ITERATIONS 
3521 040410 TIOLOOP: 
2523 040410 BGNSUB S4411111141/4 BEGIN SUBTEST S/////44/44/ 
040410 T10.1: 
eee 040410 104402 TRAP — C$BSUB 
2525 040412 004737 043346 JSR PC, TIORST sSET PACKET TO INITIAL VALUES 
2526 040416 SETPRI #PRIOO SLOWER PRIORITY TO ALLOW INTERRUPTS 
040416 012700 000000 MOV #PRIOO, RE 
040422 104441 TRAP C3SPRI 
2527 040424 012704 042510 MOV #TIOPACKET,R4 ;GET THE ADDRESS OF COMMAND PACKET 
Soe8 Oeese 012764 000010 000006 $$ MOV #8. ,PKBCNT(R4) sSTART WITH MINIMUM ALLOWABLE VALUE 
2530 040436 BGNSEG 3>>>>>>>>>>>> BEGIN —— >>>>>>>>>>>> 
ia 040436 104404 TRAP  CS$BSEG 
c 
2532 040440 004737 015764 JSR PC,SOFINIT 3DO SOFT INIT OF CONTROLLER 
2533 040444 103405 BCS 10$ “BR IF SOFT INIT = OK 
2537 040446 010001 MOv RO,R1 SAVE CONTENTS OF TSSR 
2538 040450 ERRDF ERRNO, SFIERR, SF IMSG DEVICE FATAL ERROR DURING INIT 
040450 104455 TRAP CSERDF 
040452 001751 .WORD 1001 
54 003646 “WORD  SFIERR 
040456 012024 “WORD  SFIMSG 
2539 040460 005037 002220 10$: CLR FATFLG 3CLEAR FATAL ERROR FLAG 
2540 040464 005037 002222 CLR INTRECV [CLEAR INTERRUPT RECEIVED FLAG 
2541 040470 010465 000000 MOV R4, TSDB(RS) SET THE rot ae RESS 
2542 040474 004737 016326 JSR PC’ CHKTSSR SWAIT FOR SSR TO SET 
2543 040500 103407 BCS 15$ [BR IF CARRY ser (GOOD RETURN) 
2544 040502 010001 MOV RO,R1 ‘SAVE CONTENTS OF TSSR 
2548 040504 ERRDF ERRNO, T10SSR,PKTSSR [DEVICE FATAL SSR FAILED TO SET 
040504 104455 TRAP CSERDF 
001752 ‘ 1002 
040510 043050 “WORD T1OSSR 
012036 “WORD PKTSSR 


040512 0 
2549 040514 005237 002220 INC FATFLG 33ET FATAL ERROR FLAG 
2550 040520 15$: CKLOOP :LOOP ON ERROR, IF FLAG SET 
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TEST 10: 


2569 040602 
2570 040602 
040602 


040602 
2571 040604 


04 
2584 040650 
2585 040654 

040654 
2586 040656 
2587 040662 
2591 040664 

040664 


040666 
040670 
040672 
7592 040674 
2593 040700 
2594 040704 
2595 040710 
2596 040712 


C PACKET PROTOCOL 


164406 


002222 


600002 
000200 
000100 


000100 


002222 


000000 
016326 


002220 


002222 


000002 
000200 
000100 


000100 


042532 


228: 


25$: 


30$: 


45$: 


528: 


ESCAPE 


BNE 
ERRHRD 


Q 
ERRHRD 


ENDSEG 


BGNSEG 


SEG 


INTRECV 
$ 


ERRNO, TIONINT ,PKTSSR 


TSSR(RS) ,R1 
#SSR,R2 

rt A oR1 
#OFL ,R2 
R2,R1 


30$ 
ERRNO, T10NBA,PKTSSR 


p02s05., T1OBFR 
#100 212. ¢ 

R4, TSDB(R as) 

PC CaRTssR 
45$ 


RO,R1 
ERRNO, TIOSSR,PKTSSR 


FATFLG 


INTRECV 
ERRNO, TIOINT ,PKTSSR 


TSSR(RS),R1 
#SSR,R2 
#OFL,RI1 

55$ 
#OFL,R2 


_ SEQ 0189 
TRAP CSCLP1 
sBY-PASS SUBTEST IF — ERROR 
TRAP CSESCAPE 


;WORD 10000$-. 
sDID AN tee OCCUR ? 


‘BRANCH if 
TRAP ~CSERHRD 
WORD 1003 
WORD TIONINT 
-WORD PKTSSR 

GET THE CONTENTS OF TSSR 

EXPECTED CONTENTS OF 51 SSR 

21S OFF-LINE BIT SET 

[BRANCH IF NOT OFF-LIN NE 

SET OFF-LINE IN EXPECTED DATA 

2D0ES EXPECTED MATCH RECEIVED ? 

‘OKAY IF MATCH 

[NBA NOT ZERO 
TRAP CSERHRD 
«WORD 1004 
WORD T1ONBA 
-WORD PKTSSR 


MK KK KKK KKK END SEGMENT <<KK<K<< KKK 
10000$: 


C$BSEG 


CLEAR INTERRUPT RECEIVED FLAG 
sWIPE OUT MESSAGE BUFFER AREA 
SET COMMAND PACKET TO MESS BUF REL 
3SET THE ey! “ae 
WAIT FOR SSR TO SET 
BR IF CARRY SET (GOOD RETURN) 
zSAVE CONTENTS OF TSSR 
DEVICE FATAL SSR FAILED TO SET 
TR ee 


TIOSSR 
PKTSSR 


zSET FATAL ERROR FLAG 


sLOOP OM ERROR, IF FLAG SET 


TRAP CSCLP1 


sCID AN INTERRUPT OCCUR ? 
BRANCF IF NO 


CSERHRD 
1006 
TIOINT 
PKTSSR 
;GET THE CONTENIS OF TSSR 


EXPECTED CONTENTS OF _/SSR 
21S OFF-LINE BIT get 


BRANCH IF NOT OFF SL INE 
SET OFF-LINE IN EXPECTED DATA 


! 
i r 
TRAP CSESEG 
3>>>>>>>>>>>> BEGIN eee 
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Test 10: BAS 


2597 040716 
2598 040720 
2602 040722 

040722 

040730 
2603 040732 
2604 040732 


2605 040736 
2606 040742 
2607 040744 
2611 040746 

040746 


2615 764 
2616 040770 
040770 
040770 

2617 040772 
2618 040772 
040772 

5 040772 


C PACKET PROTOCOL 


020201 
001404 


005737 
001403 
004737 


104405 


104403 


002220 
017172 


55$: 


60$: 


70$: 


80$: 


CMP 
BEQ 
ERRHRD 


MOV 
MOV 
CMP 
BEQ 
ERRHRD 


BEQ 
JSR 
ENDSEG 


ENDSUB 


R2,R1 


60 
ERRNO, TIONNBA,PKTSSR NBA 


TIOBFR,R1 
#025252,R2 
R1,R2 


70 
ERRNO, T1OMBF ,EXPREC 


a 
PC,CKDROP 


DOES EXPECTED MATCH RECEIVED ? 
: OKAY ey TCH 


TRAP CSERHRD 
-WORD 1007 


«WORD TIONNBA 
«WORD PKTSSR 


sFICK UP THE 1ST eee OF MESSAGE BUFFER 
SET UP EXPECTED DAT 
WAS AN ANY MESSAGE REC’ * 


7BR, IF OK (EQUAL) 

ZMESSAGE BUFFER WAS MODIFIED 
TRAP CSERHRD 
~ WORD 1008 
«WORD T1OMBF 
eWORD EXPREC 


sANY FATAL ERRORS 

sBR, IF NO FATAL ERRORS 

sTRY TO DROP THE UNIT 

ERRR RRR KKK a + rae RRR KKK KKK KC 


“ TRAP = CSESEG 

SIIIIITTITTTL END SUBTEST S//IIIIIIIT 
L10076: 

TRAP CSESUB 


SEQ 0190 
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TEST 10: BASIC PACKET PROTOCOL SEQ 0191 
2621 3+ 
soe s TEST 10 SUBTEST 2 
2624 i CHECKS THAT THE nee BUFFER RELEASE COMMAND WOR KS 
2625 ROPERLY AND eo! THERE IS AN INTERRUPT IF TH HE *'IE* 
2626 ‘Br IS SET IN THE CORMAND P PACKET AND THE ‘‘ERI** BIT 
sost 31S SET IN THE CHARACTERISTICS DATA PACKET 
2629 i 
,_—— og thoy BGNSUB SIVAN AAA asi — VISA ASAA GT 
2631 040774 104402 TRAP C$B8SUB 
2632 040776 004737 043346 JSR PC, TIORST sSET PACKET TO INITIAL VALUES 
2633 041002 SETPRI #PRIOO SLOWER PRIORITY TO ALLOW INTERRUPTS 
041002 012700 000000 -- + #PRIOO,RO 
041006 104441 CS$SPR 
2634 041010 012704 042510 MOV #TIOPACKET,R4 3GET THe ADDRESS OF COMMAND | PACKET 
$03? oe lass 012764 000010 000006 $s MOV #8. ,PKBCNT(R4) START WITH MINIMUM ALLOWABLE VALUE 
2637 041022 BGNSEG j>>>>>>>>>>>> BEGIN seat + >>>>>>>>>>>> 
2638 041022 104404 C$BSEG 
2639 041024 004737 015764 JSR PC, SOF INIT 3D0 SOFT INIT OF CONTROLLER 
2640 041030 103405 BCS 10$ :BR IF SOFT INIT = OK 
2644 041032 010001 MOV RO,R1 > SAVE CONTENTS OF TSSR 
2645 041034 ERRDF ERRNO, SFIERR,SFIMSG sDEVICE FATAL ERROR DURING INIT 
041034 104455 TRAP CSERDF 
1036 001761 -WORD 1009 
041040 003646 «WORD SFIERR 
1 012024 -WORD SFIMSG 
2646 041044 005037 002220 10$: CLR fallds & sCLEAR FATAL ERROR FLAG 
2647 041050 005037 002222 CLR :CLEAR INTERRUPT RECEIVED FLAG 
2648 041054 012737 000020 042526 MOV #000020, sTIOBATACG SET ERI IN CHARACTERISTICS DATA 
2649 041062 010465 000000 MOV R4, TSDB(RS) :SET THE PACKET ADDRESS 
2650 041066 004737 016326 JSR PC timissh sWAIT FOR SSR TO SET 
2651 041072 103407 BCS 15$ sBR IF CARRY SET ‘eoee RETURN) 
2652 041074 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
2656 041076 ERRDF ERRNO,T1IOSSR,PKTSSR :DEVICE FATAL SSR FAILED TO SET 
041076 104455 TRAP CSERDF 
041100 001762 «WORD 1010 
041102 043050 eWORD T1OSSR 
041104 012036 -WORD PKTSSR 
2657 041106 005237 002220 INC FATFLG :SET FATAL ERROR FLAG 
2658 041112 15$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
041112 104406 TRAP CSCLP1 
2659 041114 ESCAPE SEG sBY-PASS SUBTEST IF FATAL ERROR 
041114 104410 TRAP CSESCAPE 
041116 000056 «WORD 10000$-. 
2660 041120 005737 002222 TST INTRECV :DID AN INTERRUPT OCCUR ? 
2661 041124 BNE BRANCH IF YES 
2665 041126 ERRHRD ERRNO, TIONINT,PKTSSR 
041126 10445 TRAP CSERHRD 
041130 00176 -WORD 1011 
041132 043137 eWORD TIONINT 
041134 012036 -WORD PKTSSR 
2666 041136 016501 000002 22$: MOV TSSR(RS) RI :GET THE CONTENTS OF TSSR 











TEST 10: 
2667 041142 
2668 041146 
2669 041152 
2670 041154 
2671 041160 
2672 041162 
2676 041164 
041164 
041166 
041170 
041172 
2677 041174 
2678 041174 
041174 
041174 
2679 041176 
041176 

2680 
2681 041200 
2682 041204 
2683 041212 
2684 041216 
5 041222 
2686 041226 
7 041230 
2691 041232 
041232 
041234 
1236 
041240 
2692 041242 


2693 041246 
46 


2694 250 
2695 041254 
2699 


1256 
1256 
260 
262 
264 
2700 041266 
2701 272 
2702 041276 
2703 041302 
2704 304 
2705 310 
27 312 
314 
314 
316 


3 


—~ 
3 
RERRRELLLELLLLLLLLLLLLLEE 
Nm 
mn 


mek kk ak at at ot ot ot ot ot = ss 


TSVSA = “etry TESTS 


C PACKET 


012702 
032701 
00 


MACRO M1113 25-MAY-82 08:41 
PROTOCOL 
000200 MOV 
000100 BIT 
BEQ 
000100 BIS 
25$: CMP 
BEQ 
ERRHRD 
30$: 
ENDSEG 
BGNSEG 
002222 CLR 
025252 042532 MOV 
100212 MOV 
000000 MOV 
016326 JSR 
BCS 
MOV 
ERRDF 
002220 INC 
45$: CKLOOP 
002222 TST 
BNE 
ERRHRD 
000002 52$: MOV 
000200 MOV 
000100 BIT 
BEQ 
000100 BIS 
55$: CMP 
BEQ 
ERRHRD 
60$: 


K 15 
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#SSR,R2 
#OFL,R1 


#OFL,R2 
R2,Ri 


0 
ERRNO, TIONBA,PKTSSR 


TRECV 
#025252, T10BFR 
#100212, (R4) 
R4, TSDB(RS) 
PC,CHKTSSR 


45$ 


RO,R1 
ERRNO, T1IOSSR,PKTSSR 


FATFLG 


— 
ERRNO, TIOINT ,PKTSSR 


TSSR(R5S),R1 
#SSR,R2 


#OFL,R1 
55$ 
#OFL,R2 
R2,R1 


60 
ERRNO, TIONNBA, PKTSSR 


R 
#025252,R2 
R e 


- SEQ 0192 
sEXPECTED CONTENTS OF » SSR 
1S OFF-LINE BIT SET 
sBRANCH IF NOT OFFeL NE 
sSET OFF-LINE IN EXPECTED DATA 
:DOES > i parte MATCH RECEIVED ? 
RBA "WoT ZERO 
TRAP CSERHRD 
eWORD 1012 
~WORD T1ONBA 
-WORD PKTSSR 
BMKKKK KKK END SEGMENT <<<<KK KKK KKK 
10000$: 
TRAP CSESEG 
3>>>>>>>>>>>> BEGIN ena + >>>>>>>>>>>> 
CSBSEG 


; CLEAR INTERRUPT RECEIVED FLAG 
sWIPE OUT MESSAGE BUFFER AREA 
SET COMMAND PACKET TO — BUF REL 
SET THE PACKET ADDRESS 
WAIT FOR SSR TO SET 
3BR IF CARRY SET (GOOD RETURN) 
:SAVE CONTENTS OF TSSR 
;DEVICE FATAL SSR FAILED TO SET 


TRAP CSERDF 
-WORD 1013 

-WORD TIOSSR 
-WORD PKTSSR 


zSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 

TRAP CSCLP1 
DID AN oe OCCUR ? 


BRANCH IF 
TRAP CSERHRD 
-WORD 1014 
«WORD TIOINT 
-JORD PKTSSR 

3GET THE CONTENTS OF TSSR 

EXPECTED CONTENTS OF 5 SSR 

21S a ine ab SET 

BRANCH IF FF-LI NE 

3SET OFF-LINE. IN EXPECTED DATA 

DOES EXPECTED MATCH RECEIVED ? 

SOKAY IF MATCH 

3NBA NOT SET 
TRAP CSERHRD 
-WORD 1015 
-WORD TIONNBA 
e-WORD PKTSSR 


sPICK UP THE 1ST — OF MESSAGE BUFFER 
SET UP EXPECTED DATA 

WAS ANY MESSAGE REC'D 

BR, IF OK (EQUAL) 












TEST 10: BASIC 
2719 041340 


015464 
005737 
001402 
004737 
104405 


104403 


002220 
017172 


70$: 


80$: 


TSVSA = HARDWARE TESTS MACRO M1113 25-MAY-82 08:41 
PACKET PROTOCOL 


ERRHRD 


TST 
BEQ 
JSR 


ENDSEG 


ENDSUB 





L1 
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ERRNO, TIOMBF ,EXPREC 


FATFLG 
PC, CKDROP 


— SEQ 0193 


MESSAGE BUFFER WAS MODIFIED 
TRAP CSERHRD 
WORD 1016 
«WORD T10OMBF 


«WORD EXPREC 


sANY FATAL ERRORS 
7BR, IF NO FATAL ERRORS 
TRY TO DROP THE UNIT 


5 MKKKK KKK END SEGMENT <<KK<KK KKK 
10001$: 


TRAP CSESEG 
BAITING ~ ae TL, 


“ TRAP —« CSESUB 


ay 
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2729 3+ 

3730 : TEST 10 SUBTEST 3 

2732 CHECKS THAT THE CPU GIVES UP OWNERSHIP OF THE MESSAGE BUFFER 

2733 SAFTER THE MESSAGE BUFFER RELEASE, AND THAT FOLLOWING COMMANDS 

2734 WORK CORRECTLY 

Aah 

2737 01386 BGNSUB IMI: ‘BEG ein SUBTEST VEGETA AS 

_ 041366 104402 7 1 TRAP — C$BSUB 

2 oe 

2739 041370 004737 043346 _ JSR PC,TIORST SET PACKET TO INITIAL VALUES 

2740 041374 SETPRI #PRIOO SLOWER’ PRIORITY TO ALLOW INTERRUPTS 
041374 012700 000000 MOV #PRIO0,RO 
041400 104441 TRAP CSSPRI 

2741 041402 012704 042510 MOV #TIOPACKET,R4 GET THE ADDRESS OF COMMAND PACKET 

sree oe 1608 012764 000010 000006 - MOV #8. ,PKBCNT(R4) START WITH MINIMUM ALLOWABLE VALUE 

2744 041414 BGNSEG 3>>>>>>>>>>>> BEGIN —— >>>>>>>>>>>> 

ones 1414 104404 TRAP C$BSEG 

2746 041416 004737 015764 JSR PC, SOF INIT DO SOFT INIT OF CONTROLLER 

2747 041422 103405 BCS 10$ ‘BR IF SOFT INIT = OK 

2751 041424 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 

2752 041426 ERRDF ERRNO,SFIERR,SFIMSG *DEVICE FATAL ERROR DURING INIT 
041426 104455 CSERDF 
041430 001771 TeORD 1017 
041432 003646 WORD SFIERR 
041434 012024 WORD SFIMSG 

2753 041436 005037 002220 10$: CLR FATFLG CLEAR FATAL ERROR FLAG 

2754 041442 005037 002222 CLR INTRECV SCLEAR INTERRUPT RECEIVED FLAG 

2755 041446 010465 000000 MOV R4, TSDB(RS) SET THE PACKET ADDRESS 

2756 041452 004737 016326 JSR PC, CHKTSSR WAIT FOR SSR TO SET 

2757 041456 103407 BCS 15$ [BR IF CARRY SET (GOOD RETURN) 

2758 041460 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 

2762 041462 ERRDF ERRNO,T10SSR,PKTSSR ‘DEVICE FATAL SSR FAILED ro, SET 
041462 104455 TRA CSEROF 

1464 001772 TYORD 1018 

041466 043050 eWORD T10SSR 
041470 012036 «WORD PKTSSR 

2763 041472 005237 002220 INC FATFLG SET FATAL ERROR FLAG 

2764 041476 15$: CKLOOP LOOP ON ERROR, IF FLAG SET 
041476 * 104406 TRAP CSCLP1 

2765 041500 ESCAPE SEG BY-PASS SUBTEST IF FATAL ERROR 
041500 104410 TRAP CSESCAPE 
041502 000056 -WORD 10000$-. 

2766 041504 005737 002222 TST INTRECV DID AN INTERRUPT OCCUR ? 

2767 041510 001004 BNE 22$ SBRANCH IF YES 

2771 041512 ERRHRD ERRNO,TIONINT,PKTSSR 
041512 104456 TRAP CSERHRD 
041514 001773 eWORD 1019 
041516 043137 WORD TIONINT 
041520 012036 -WORD PKTSSR 

2772 041522 016501 000002 228: MOV TSSR(RS),R1 GET THE CONTENTS OF TSSR 

2773 041526 012702 000200 MOV #SSR,R2 EXPECTED CONTENTS OF As 

2774 041532 032701 000100 BIT #OFL, *R1 z1S OFF-LINE BIT SET 








ee 


N 15 
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2775 041536 001402 BEQ 25$ ZBRANCH IF NOT OFF-LINE 
2776 041540 052702 000100 BIS #OFL,R2 :SET OFF-LINE IN EXPECTED DATA 
2777 041544 020201 25$: CMP R2,Ri ‘DOES EXPECTED MATCH RECEIVED ? 
2778 041546 001404 BEQ 30$ SOKAY IF MATCH 
2782 041550 ERRHRD ERRNO,T10NBA,PKTSSR ‘NBA NOT ZERO 
041550 104456 TRAP  C$ERHRD 
041552 001774 .WORD 1020 
041554 042711 -WORD TI1ONBA 
041556 012036 <WORD PKTSSR 
2783 041560 30$: 
2784 041560 ENDSEG MRK KKK END SEGMENT <KKdd<KK KKK 
041 360 10000$: 
041560 104405 TRAP  CS$ESEG 
2785 041562 BGNSEG 3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
041562 104404 RAP  C$BSEG 
041564 737 043346 JSR PC, TIORST ZRESET PACKETS AND COMMANDS 
2787 041570 005037 00222 CLR INTRECV :CLEAR INTERRUPT RECEIVED | FLAG 
041574 012737 025252 042532 MOV #025252, TIOBFR WIPE OUT MESSAGE BUFFER AREA 
2789 041602 012714 10021 MOV #10021 2,¢ SET COMMAND PACKET TO MESS BUF REL 
041606 010465 000000 MOV R4,TSDB(R iRey :SET THE PACKET ADDRESS 
2791 041612 004737 016326 JSR PC CARTSER :WAIT FOR SSR TO SET 
2792 041616 103407 BCS 45$ 7BR IF CARRY SET (GOOD RETURN) 
2793 041620 010001 MOV RO,R1 ZSAVE CONTENTS OF TSS 
2797 041622 ERRDF ERRNO, T10SSR,PKTSSR ZDEVICE FATAL SSR FAILED TO SET 
041622 104455 TRAP CSERDF 
041624 001775 -WORD 1021 
041626 043050 .WORD T10SSR 
041630 012036 .WORD PKTSSR 
2798 041632 005237 002220 INC FATFLG 3SET FATAL ERROR FLAG 
2799 041636 45$:  CKLOOP [LOOP ON ERROR, IF FLAG SET 
104406 : TRAP = CSCLP1 
2800 041640 005737 002222 TST INTRECV :DID AN INTERRUPT OCCUR ? 
2801 041644 001404 BEQ “BRANCH IF NO 
2805 041646 ERRHRD ERRNO,TIOINT,PKTSSR 
041646 104456 TRAP  CSERHRD 
001776 .WORD 1022 
043230 .WORD  TIOINT 
012036 “WORD PKTSSR 
016501 000002 52$: MOV TSSR(RS),R1 :GET THE CONTENTS OF TSSR 
012702 000200 MOV #SSR,R2 Z EXPECTED CONTENTS OF TSsa 
032701 000100 BIT #OFL.RI 21S OFF-LINE BIT SET 
001402 BEQ 55$ [BRANCH IF NOT OF ROL IWE 
052702 000100 BIS #OFL,R2 [SET OFF-LINE IN EXPECTED DATA 
020201 55$: CMP R2,Ri :DOES EXPECTED MATCH RECEIVED ? 
0014 BEQ 60 ZOKAY IF MATCH 
ERRHRD ERRNO,TIONNBA,PKTSSR § :NBA NOT SET 
10445 TRAP  CSERHRD 
001777 «WORD 1023 
042773 <WORD T1ONNBA 
012036 oe -WORD PKTSSR 
013701 042532 MOV TIOBFR,R1 :PICK UP THE 1ST WORD OF MESSAGE BUFFER 
012702 025252 MOV #025252,R2 [SET UP EXPECTED D 
020102 CMP R1,R2 ‘WAS ANY MESSAGE REC'D 
01404 BEQ 70 ! 7BR, IF OK (EQUAL) 
ERRHRD ERRNO, T1OMBF ,cXPREC [MESSAGE BUFFER WAS MODIFIED 
104456 TRAP  CSERHRD 
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TEST 10: 


2826 
2527 041740 
041740 


2828 
2829 041742 
2830 4 


2834 66 
2835 041770 
2839 041772 
041772 
041774 
041776 
042000 

2840 042002 
2841 042006 
006 

2842 042010 
010 

012 

2843 042014 
2849 042026 
026 

042030 
042032 
042034 

2350 042036 
2851 042042 


2852 042046 
2853 O5609¢ 


04 
2861 042074 
2862 042074 
2074 





833 


ese = 
NOs 
goe 


C PACKET PROTOCOL 


sats 


016326 


002220 


002220 
017172 


002222 
043346 


70$: 


75$: 


82$: 


85$: 


90$: 


95$: 


INTRECV 


RO,R1 
ERRNO, T10SSR,PKTSSR 


FATFLG 
SEG 


INTRECV 
82$ 


TSSR(RS 
ERRNO, T1ORINT, PKTSSR 


TSSR(RS) RI 
#SSR,R2 
#OFL.RI 

85$ 
#OFL,R2 

R2,Ri 

90$ 

ERRNO, T10SSR,PKTSSR 


FATFLG 
PC, CKDROP 


INTRECV 
PC, TIORST 


WORD 1024 
WORD T1OMBF 
«WORD EXPREC 
sLOOP ON ERROR IF FLAG ~ 
TRAP CSCLP7 
3 CLEAR ie bane RECEIVED FLAG 
RESET THE PACKETS AND COMMANDS 
7CLEAR THE ACK BIT 
3SET_THE PACKET oo 
WAIT FOR SSR TO SET 
3BR IF CARRY SET (GOOD RETURN) 
zSAVE CONTENTS OF TSSR 
DEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WORD 1025 
-WORD T1OSSR 
«WORD PKTSSR 
:SET EATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
RAP CSCLP1 
sBY-PASS SUBTEST IF FATAL ERROR 
TRAP eee 


- WORD 
DID AN INTERRUPT OCCUR ? 
BRANCH IF YES 
2GET TSSR FOR ERROR REPORT 
TRAP CSERHRD 
WORD 1026 
WORD TIONINT 
PKTSSR 
3GET THE CONTENTS OF TSSR 
EXPECTED CONTENTS OF 5 1SSR 
31S OFF-LINE BIT SET 
: ANCH IF NOT OFFSLINE 
sSET OFF-LINE IN EXPECTED DATA 
:DOES EXPECTED MATCH RECEIVED ? 
OKAY IF MATCH 
:NBA NOT ZERO 
TRAP + 


-WORD 1027 
-WORD T1I0OSSR 
-WORD PKTSSR 
5 hKKKKKKK KKK END SEGMENT <<<<<KKKeK<KC 
10001$: 
TRAP CSESEG 


sANY FATAL rep 
IF NO FATAL ERRORS 
iTRY TO DROP THE UNIT 


RKEEKKKKKKKKE BGN SEGMENT <<<<<<<<eec<< 
R SBSEG 


AP 
CLEAR INTERRUPT Ray 3 hy FLAG 
bles 


LoiguF RACKETS AND COMMANDS 


el ie eee ple ee 
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TEST 10: BASIC PACKET PROTOCOL SEQ 0197 

2870 042122 010465 000000 MOV R4, TSDB(RS) iSET THE PACKET ADDRESS 

2871 042126 004737 Oiesce JSR PC. CHKTSSR *WAIT FOR $ 

3872 042132 103407 BCS 106$ [BR IF CAR "SET, 2600 RE TURN) 

042134 010001 MOV RO,R1 + SAVE CONTEN TS 

2877 042136 ERRDF ERRNO,TIOSSR,PKTSSR :DEVICE FATAL sor FAILED 10, SET 
042136 104455 TRAP CSERDF 
042140 002004 «WORD 1028 
042142 043050 .WORD  T10SSR 
042144 012036 .WORD PKTSSR 

2878 042146 005237 002220 INC FATFLG zSET FATAL ERROR FLAG 

2879 042152 100$:  CKLOOP 3LOOP ON ERROR, IF FLAG SET 
042152 104406 TRAP C$CLP1 

2880 042154 ESCAPE SEG ZBY-PASS SUBTEST IF FATAL ERRCR 
042154 104410 TRAP  CSESCAPE 
042156 2 .WORD  10002$-. 

2881 042160 005737 002222 TST INTRECV :DID AN INTERRUPT OCCUR ? 

2882 042164 001006 BNE 112$ ‘BRANCH IF Y | 

2886 042166 016500 000002 MOV TSSR(RS ZGET TSSR FOR ERROR REPORT 

2887 042172 ERRHRD ERRNO, Re IONENT, PKTSSR 
O4ci7? 104456 TRAP  CSERHRD 
042176 002005 -WORD 1029 
042176 043137 .WORD TIONINT 
042200 012036 PKTSSR 

2888 042202 010501 000002 112$: MOV TSSR(RS),R1 :GET THE CONTENTS OF TSSR 

2889 042206 012702 000200 MOV #SSR,R2 ZEXPECTED CONTENTS OF _TSSR 

2890 042212 032701 000100 . BIT #OFL.R1 1S OFF ~LINE BIT SET ? 

2891 042216 001402 BEQ 125$° [BRANCH IF NOT Oren INE 

2892 042220 052702 000100 81S #OFL,R2 7SET OFF-LINE IN EXPECTED DATA 

2893 042224 020201 125$: CMP R2,Ri1 :DOES EXPECTED MATCH RECEIVED ? 

2894 042226 001405 BEOQ 130$ SOKAY IF MATCH 

2898 042230 ERRHRD ERRNO,T10SSR,PKTSSR : : 

- 042230 104456 TRAP  CSERHRD 
042232 002006 .WORD 1030 
042234 043050 “WORD T1OSSR 
042236 012036 -WORD PKTSSR 

2899 042240 ENDSEG $OKKKK KKK KKK END SEGMENT <<<c<ceceececc< 
042240 10002$: 

042240 104405 TRAP CSESEG 

2900 042242 005737 002220 130$: TST FATFLG ZCHECK FATAL FLAG FOR SET 

2901 042246 001402 BEQ 140$ 78R, IF NOT (OK) 

2902 042250 737 017172 JSR PC, CKDROP ZDROP DEVICE IF INDICATED 

2903 042254 140$: 

04225 ENDSUB SIIIIIITIATAT END SUBTEST S///////4/04/ 
04225 L10100: 
042254 104403 TRAP CSESUB 

2905 042256 30S: 





29 
2916 042256 
042256 
042256 
2918 042260 
2919 042264 
2920 042270 
270 


274 
2921 042276 


2934 

2935 042350 
2936 042354 
soe 042360 
2939 pesere 


2 
2949 042424 
2950 042430 
2951 


2952 
2956 042432 
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043420 
043346 


000000 


042510 
042552 
000010 
000010 


015764 


002220 


002220 


002222 


000006 
000006 


3+ 

sTEST 10 SUBTEST 4 

CHECKS THAT THE REGISTER a. UT en tata REFUSED (RMR) BIT IN 
S_ COMMAND 


THE TSSR WIL 


L BE SET IF 


WRITE CHARACTERISTICS 


BEING EXECUTED AND ANOTHER “WC’’ COMMAND IS ATTEMPTED 


° 
°o 
o 


10$: 


15$: 


BGNSUB 


JSR 
JSR 
SETPRI 


ERRHRD ERRNO, TIONINT,PKTSSR 





PC, TIORT2 
PC, TIORST 
#PR1I00 


thy aay 1G R4 
#TIOPKT, 


#8. ,PKBCNT (R4) 
#8. ,PKBCNT(R3) 


PC,SOF INIT 


10$ 


RO,R1 
ERRNO, SF IERR, SF IMSG 


FATFLG 
INTRECV 
R4, TSDB(RS) 
R3, or + a 


PC,WA 
TSSRCR3) 1 


ERRNO, TIOSSR,PKTSSR 


FATFLG 


SEG 


INTRECV 
228 


SAITITAT SANE “ss 


3SET THE PACKET AD 
; SECOND COMMA 


:DID AN 
: BRANCH 


T 


NS 
0.4: 


SET SECOND PACKET UP 
3SET PACKET TO INITIAL V 


VALUES 
SLOWER PRIORITY TO a eee 


TRAP 
GET THE ADDRESS OF COMMAND PACKET 


SEQ 0198 


UBTEST S///ISIII1S/ 
TRAP C$BSUB 


CSSPRI 


sGET THE ADDRESS OF 2ND CMD PACKET 


START WITH MINIMUM ALLOWABLE VALUE 
sSTART WITH MINIMUM ALLOWABLE VALUE 


3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 


a SOFT INIT wit X Rese 


BR IF SOFT 


SAVE CONTENTS OF TSSR 
DEVICE FATAL ERROR as Bis 


7CLEAR FATAL ERROR F 


LAG 
CLEAR INTERRUPT Positha FLAG 


IND PACKE 


WAIT FOR SSR 


HECK FOR oe teres 


F SSR 


2BR, SET (GOOD) 
DEVICE FATAL SSR roar SET 


sSET FATAL ERROR FLAG 
;LOOP ON ERROR, IF FLAG 


AP 
:BY-PASS SUBTEST IF FATAL ERROR 
TRAP 


-WOR 
INTERRUPT OCCUR ? 
IF YES 


TO SET 
i6ET CONTENTS OF TSSR ‘a 


CS$BSEG 
CSERDF 
ORD 1031 
m4 SF IERR 
SF IMSG 
T 
CSERDF 
«WORD 1032 
WORD TIOSSR 
~ ,WORD PKTSSR 
SET 
TR CSCLP1 
CSESCAPE 
10000$-. 
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104405 


104403 
104432 
000764 


22$: 


25$: 


30$: 


ENDSEG 


ENDSUB 


EXIT 


E 16 


TSSR(RS) RI 
#SSR!RMR'SC,R2 
#OFL,R1 

25$ 

#OFL R2 

R2,R1 


30 
ERRNO, T10SSR,PKTSSR 


’ 


TST 


TRAP 


sGET THE CONTENTS OF TSSR 
EXPECTED CONTENTS OF 5 SSR 
31S UFF=LINE BIT SET 
BRANCH IF NOT OFF=L INE 
sSET OFF-LINE IN EXPECTED D 
;DOES WT haven MATCH RECEiv 
sOKA* IF MATC 

NB% NOT TERO” 


079 


TRAP 
-dURD 
«WORD 
- WORD 


1033 
TIONINT 
PKTSSR 


CSERHRD 
1034 
TIOSSR 
PKTSSR 


5 MKRKKK KKK KKK END SEGMENT <<<<KK KKK KCK 
10000$: 


TRAP CSESEG 
SATII ASST we ae LLL 


TR 
sALL DONE WITH THIS TEST 

TRAP 

- WORD 


CSESUB 


CSEXIT 
L10075-. 


SEC 0199 
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MRM 822 
AFSNSCO ALWOOSO 


2988 04 
2989 04252 
2990 04252 
2991 

2992 042532 
2993 

2994 

2995 

2996 

2997 

2998 042552 
2999 042552 
3000 042554 


3001 042556 
3002 042560 
3003 





od od od od a 
onNco--—— 
RUAWAQWN 
— 
ALAUGCON 
WMNOn——wWw 
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- SEQ 0200 


3+ 
sLOCAL STORAGE FOR THIS TEST 


TIOPACKET: 


TIODATA: 


TIOBFR: .BLKW 


he 


COMMAND PACKET FOR TEST 
HAR 


100204 sWRIT COMMAND, WITH IE, ACK 
peape sADDRESS OF CHARACTERISTICS BLOCK 
8. sSTARTING VALUE OF BLOCK SIZE 

zs CHARACTERISTICS DATA BLOCK 
pget ADDRESS OF MESSAGE BUFFER 
68 LENGTH OF MESSAGE BUFFER 
8. sMESSAGE BUFFER 


[TEST DATA FOR SUBTEST FOUR 


T10PKT: 


TIODTA: 


TIOBUFR: .BLKW 


+ COMMAND PACKET FOR TEST 


100204 WRITE CHAR COMMAND, WITH IE, ACK 

TIODTA z ADDRESS OF CHARACTERISTICS BLOCK 

8. sSTARTING VALUE OF BLOCK SIZE 
ZCHARACTERISTICS DATA BLOCK 

TIOBUFR ZADDRESS OF MESSAGE BUFFER 

6. ZLENGTH OF MESSAGE BUFFER 

8. sMESSAGE BUFFER 


3+ 
sLOCAL TEXT MESSAGES FOR TEST 


TIOMBF: .ASCIZ 
TIONBA: .ASCIZ 


T1ONNBA: 
T10SSR: .ASCIZ 


TIOINT: .ASCIZ 
TST101ID: 


- EVEN 


‘Message Buffer Modified after MESSAGE paren RELEASE Command’ 
"NBA Not Clear After WRITE CHARACTERISTI A a a d° 
eASCIZ ‘NBA Set After MESSAGE BUFFER RELSASE''C ent 
‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS* 

ASCIZ ‘Expected Ir.terrupt Not Received On WRITE CHARACTERISTICS® 
*Unex ected Interrupt Received On WRITE CHARACTERISTICS‘ 

-ASCI "Basic Packet Frotocol’* 
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3027 
3028 ge 
3029 
3030 
3031 $ 
3032 3° 
3033 
034 043346 TIORST: 
3035 043346 SAVREG 
3036 043352 012701 042510 V 
3037 043356 012721 100204 MOV 
38 043362 012721 042520 MOV 
3039 043366 5021 CLR 
3040 043370 912721 000010 MOV 
3041 043374 12721 042532 MOV 
3042 043400 502 CLR 
3043 043402 012721 000016 MOV 
3044 043406 005021 CLR 
3045 043410 005011 CLR 
3046 043412 005037 042532 CLR 
3047 043416 000207 RTS 
3048 3+ 
3049 
3050 
3051 : 
soe8 = 
3054 043420 TIORT2: 
3055 043420 SAVREG 
56 0434 012701 042552 MOV 
043430 012721 100204 MOV 
3058 043434 012721 042562 MOV 
3039 043440 005021 CLR 
043442 012721 0900/0 MOV 
3061 043446 012721 042574 MOV 
3062 043452 005021 CLR 
3063 043454 012721 000016 MOV 
3064 043460 005021 CLR 
3065 043462 005011 CLR 
3066 0434 005037 642574 CLR 
3067 043470 207 RTS 
3068 (43472 ENDTST 
C .3472 
043472 104401 


G 16 
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ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 


ZSAVE THE REGISTERS 
#TIOPACKET R1 START OF THE PACKET 
#100204,(R1)+*  :WRITE CHARACTEN? TICS WITH ACK, IE 
aTIOBATA. (R1)+ ADDRESS OF CHAR DAT. BLOCK 
(R1)+ 3 EXTENDED ADDRESS 


#8.,(R1)+ ZE OF DATA BLOCK IN BYTES 
#TIOBFR, (R1)+ ZADDRESS OF MESSAGE BUFFER 

+ 
#14. (RI)+ ;LENGTH OF MESSAGE BUFFER 

+ 
(R1) 
T105FR 3CLEAR 1ST LOC IN MESSAGE BUFFER 
PC RETURN 


ROUTINE TO RESTORE COMMAND PACKET #2 TO START-UP (DEFAULT) VALUES 


rh yt | ra ee eeten 


THE PACKET 
#100204; (R1)+ ‘eRITe CHARACTERISTICS WITH ACK, IE 
ATIODTA.(R1)* ADDRESS OF CHAR DATA BLOCK 

(RI) ‘EXTENDED ADDRESS 

TSIZE OF DATA BLOCK IN BYTES 

aridsure, (R1)+ SADDRESS OF MESSAGE BUFFER 

#14, (RI) 
(R 134 


#T1OPKT,R1 


sLENGTH OF MESSAGE BUFFER 
(R1 
TOBUFR CLEAR 1ST LOC IN MESSAGE BUFFER 
3RETURN 


L10075: 
TRAP 


CSETST 


SEG 0201 


H 16 





3092 043819 
043512 
043512 

3093 

3094 043514 
043514 
0435 

3095 043522 

3096 0435 

3100 0435 

3101 043532 
043532 
043534 
043536 
043540 

3102 043542 

3103 043542 

3104 043546 

3105 042552 

3109 043554 
043554 
043556 
043560 
043562 

3110 043564 

3111 043564 

3112 043570 

3113 043574 

3114 043574 
043574 

3115 

3116 043576 

3117 043602 

3118 043606 

3179 043612 

3120 043616 

3121 043620 

3125 043622 
043622 


012700 
004737 
012737 


104455 
002115 
364 


003646 
012024 


005052 
012024 


004737 
012704 


72 
00 
000024 


=~ 


own 
Wms 


000000 
015764 


044720 
010652 


045524 
044650 


016326 


002214 - 


BGNTST 

MOV #TST111D,RO 

JSR PC, TSTSETUP 

MOV #20. ,LOOPCNT 
T11LO0P: 
; BGNSUB 

SETPRI #PRIOO 

JSR PC, SOFINIT 

BCS 3$ 

KOV RO,R1 

ERRDF ERRNO, SFIERR, SF IMSG 
3$: 

MOV #T11PK2,R4 

JSR PC, ,WRTCHR 

BCS 4$ 

ERRHRD ERRNO,WRTMSG, SF IMSG 
4$: 

JSR PC, T1IREST 
= MOV #T11PACKET,R4 

: BGNSEG 

10$: CLR FATFLG 

CLR INTRECV 

MOV R4, TSDB(RS) 

JSR PC; CHKTSSR 

BCS 15$ 

V RO,R1 
ERRDF ERRNO,T11SSR,PKTSSR 





reyes = HARDWARE TESTS MACRO M1113 25-MAY=-82 08:41 PAGE 112 
TEST 11: NON=-TAPE MOTION COMMANDS SEQ 0202 
ert -SBTTL TEST 11: NON-TAPE MOTION COMMANDS 
3073 i+ 
3074 
3075 THIS TEST VERIFIES PROPER OPERATION OF THE INITIALIZE 
3076 3 COMMAND - TWO SUBTESTS ARE USED. THE stants ye ty THAT 
3077 THE CUMMAND RUNS TO COMPLETION AND STORES A VALID 
3078 MESSAGE PACKET. TRE SECOND VERIFIES That NON-ZERO 
3079 2 VALUES IN THE COMMAND MODE FIELD CAUSES COMMAND REJECT. 


111 
sASCII MESSAGE - IDENTIFY TEST 
200 INITIAL TEST SETUP 

PERFORM 20 ITERATIONS 


SAITTITT SASS = ees ULL 


TRAP C$8SUB 

LOWER PRIORITY TO ALLOW yeaa 
ae #PRI00,RO 

TRAP CSSPRI 

3D0 SOFT ol OF CONTROLLER 

BR IF SOFT INIT = Ok 

zSAVE CONTENTS OF “TSSR 

SDEVICE FATAL ERROR —_— £ 

CSERDF 

GORD 1101 
«WORD SFIERR 
«WORD SFIMSG 

sWRITE pape ghices bo PACKET 

2 ISSUE WRITE CHARACTERISTICS 

23R, IF COMMAND ISSUED OK 

sWRITE CHARACTERISTISC FAILED 
TRAP CEERHRD 
WORD 1102 
«WORD WRTMSG 
WORD SF IMSG 


SET UP PACKET FOR COMMAND 
GET THE ADDRESS OF CCMMAND PACKET 


3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
TRAP CSBSEG 


CLEAR FATAL ERROR FLA 


LAG 
CLEAR INTERRUPT asaneae FLAG 
SET THE +! ADOR 
WAIT SR T 


; OF 
DEVICE FATAL SSR FAILED, TO SET 
TRAP CSERDF 
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TEST 11: NON-TAPE MOTION C 


ALSMuN GS 


sees 


SES 


th a 3 3 


AISSHVES 
RRRRRRRRERERRRRRRRRRRKK 


WNWWAWWAW 


w 
N 
— 
° 


104406 


012036 
004737 
103405 
104456 
002122 
004741 
015500 


104405 


104403 


005737 
001402 
004737 


002220 


002222 


000002 
000200 
000100 


000100 


011104 


002220 
017172 





15$: 


22$: 


258: 


30$: 
35$: 


59$: 


60$: 


MACRO Abb g 25-MAY~82 08:41 
OMMAND 


INC 
CKLOOP 
ESCAPE 


TST 
BNE 
ERRHRD 


ERRHRD 


JSR 
6CS 
ERRHRD 


ENDSEG 


ENDSUB 
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FATFLG 
SEG 


INTRECV 
ERRNO, TIININT ,PKTSSR 


TSER(RS) RI 
#SSR,R2 
#OFL,R1 
25$ 


#OFLR2 
R2.Ri 


30$ 
ERRNO, T11NBA,PKTSSR 


anne 
ERRNO, PKTRAM, RAMERR 


FATFLG 
o$ 
PC ,CKDROP 


«WORD 1103 
«WORD T11SSR 
«WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
RAP CSCLP1 
BY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 


-WORD 10000S-. 
:DID AN = 9 OCCUR ? 


BRANCH 
TRAP CSERHRD 
-WORD 1104 
«WORD TIININT 
-WORD PKTSSR 

3GET THE CONTENTS OF TSSR 

sEXPECTED CONTENTS OF 5 /SSR 

i13 OFF-LINE BIT SET 

ANCH IF NOT OFF<LINE 
SET OFF-LINE IN EXPECTED DATA 

[DOES EXPECTED MATCH RECEIVED ? 

OKAY IF MATCH 

2NBA NOT ZERO 
TRAP CSERHRD 
«WORD 1105 
-WORD T1INBA 
-WORD PKTSSR 


sCHECK RAM TO MEMORY 

;RAM OK GO ON 

s THEY DON'T MATCH 
TRAP CSERHRD 
eWORD 1106 
-WORD PKTRAM 
-WORD RAMERR 

5 KKK KKK END SEGMENT <<<<CK<KK KKK 

10000$: 


" TRAP = CSESEG 


Z\VAANALAAAAAN END SUBTEST \NAAVAAAAAAAN 
L10103: 


“ TRAP = CSESUB 
ZANY FATAL ERRORS ? 

[BRANCH IF NOT 

:TRY TO DROP THE UNIT 
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WWW 
DD ed ed ed eed eed eed 
SNA AAAAA OR 
sessaseees * = 


066 
044070 
044072 
3207 044074 
044074 

3208 044076 
044076 


104402 


012700 
104441 


003646 
012024 
012704 

737 


004 
103404 


104410 
000074 


000000 


015764 


044720 
010652 


045524 
044650 


016326 


+ 


;TEST 11, 
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MACRO M1113 25=MAY-82 08:41 PAGE 113 
: NON-TAPE MOTION COMMANDS 


SUBTEST 2 


_ SEQ 0204 


CHECK THAT NON-ZERO MODE BITS BEING SET CAUSES 
INITIALIZE COMMAND TO BE REJECTED 


3$: 


10$: 


15$: 


BGNSUB 


SETPRI #PRIOO 


BGNSEG 


JSR PC, SOF INIT 
3$ 


RO,R1 
ERRNO, SFIERR, SF IMSG 


MOV #T11PK2, “+ 
JSR PC,WRTCHR 


BCS 
ERRHRD ERRNO,WRTMSG, SF IMSG 


JSR PC, TIIREST 
MOV #TTIPACKET,R4 


INTRECV 
BIS #P.MODE , (R4) 
MOV R4,TSOB(RS) 
JSR PC ..CHKTSSR 
BCS 15% 


RO,R1 
ERRNO,T11SSR,PKTSSR 


CKLOOP 
ESCAPE SEG 


s/IITTLTIT11T BEGIN SUBTEST S/////// 4111 


T11.2: 
TRAP C$BSUB 


LOWER PRIORITY TO eNO aR 


TRAP CSBSEG 


D0 SOFT INIT OF CGNTROLLER 
BR IF SOFT INIT = Ok 
2SAVE CONTENTS OF TSSR 
:DEVICE FATAL ERROR ae 


CSERDF 
WORD 1107 
«WORD SFIERR 
«WORD SFIMSG 


sWRITE CHARACTERISTICS PACKET 


2 ISSUE WRITE CHARACTERISTICS 

2BR, IF COMMAND ISSUED OK 

WRITE CHARACTERISTIS¢C FAILED 
TRAP CSERHRD 
-WORD 1108 
-WORD WRIMSG 
-WORD SFIMSG 


zSET UP PACKET FOR COMMAND 
:GET THE ADDRESS OF COMMAND PACKET 


:CLEAR INTERRUPT RECEIVED FLAG 
ERO C E BITS 


Zz 
:SET THE PACKET ADDRESS 
WAIT FOR SSR TO SET 

BR IF CARRY i Be (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 

DEVICE FATAL SSR PAGLED SS eat 


CSERDF 

-WORD 1109 

-WORD TIISSR 

-WORD PKTSSR 
sLOOP ON ERROR, IF FLAG SET 

TRAP CSCLP1 
sBY-PASS CHECKS IF FATAL ERROR 

TRAP CSESCAPE 


-WORD 10000$-. 


Aol hg RO 
TRAP CSSPR 
3>>>>>>>>>>>> BEGIN sty spietisacten 
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TEST 11: NON-TAPE MOTION COMMANDS - SEQ 0205 

3209 044102 005737 002222 TST INTRECV 3DID AN INTERRUPT OCCUR ? 

sie 044106 001004 BNE 22$ ‘BRANCH IF YES 

3214 044110 ERRHRD ERRNO,T1ININT,PKTSSR 
044110 104456 TRAP CSERHRD 
044172 002126 «WORD 111 
044114 045344 ~ WORD TIININT 
044116 012036 ; D PKTSSR 

3215 044120 016501 000002 228: MOV TSSR(RS),R1 :GET THE CONTENTS OF TSSR 

3216 044124 012702 100206 MOV #SC!SSR!TSREJ,R2 ZEXPECTED CONTENTS OF 5 1Ssr 

3217 044130 032701 000100 BIT #OFL,R1 71S OFF-LINE BIT SET 

3218 044134 001402 BEQ 25$ sBRANCH IF NOT OFF=L INE 

3219 044136 052702 000100 BIS #OFL,R2 sSET OFF-LINE IN EXPECTED DATA 

3220 044142 020201 25$: CMP R2,R1 DOES asics MATCH RECEIVED ? 

3221 044144 001404 BEQ 0 ZOKAY IF MATCH 

3225 044146 ERRHRD ERRNO,1T112REJ,PKTSSR ;COMMAND NOT REJECTED 
044146 104456 TRAP 5 

4150 002127 «WORD 111 

044152 045022 - WORD THT2RE J 
044154 012036 -WORD PKTSSR 

3226 044156 30$: 

3227 044156 004737 011104 35$: JSR PC,CKRAM sCHECK RAM TO MEMORY 

3228 044162 103405 BCS 9 [RAM OK K GO ON 

3232 044164 ERRHRD ERRNO,PKTRAM,RAMERR sTHEY DON'T MATCH 
044164 104456 TRAP CSERHRD 
044166 002130 - WORD 1112 
044170 004741 -WORD PKTRAM 
044172 015500 -WORD RAMERR 

3233 044174 ENDSEG PRKKK KKK KKK KC a SEGMENT <<<cccceeccc< 
044174 10000$: 

2% 044174 104405 TRAP CSESEG 

3235 044176 59$: ENDSUB s\NAANAAANAAAAN END SUBTEST \NNANNAAAAAAN 
044176 L10104: 


044176 104403 “ TRAP = CSESUB 
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11: NON-TAPE MOTION COMMANDS 
3237 3@ 
3238 : 
3239 :TEST 11, SUBT 
3240 : 
3241 
3242 3 
3243 s= 
3244 
3245 044200 BGNSUB 
044200 
044260 104402 
3246 
3247 044202 SETPRI 
044202 012700 000000 
044206 104441 
3248 044210 BGNSEG 
044210 104404 
3249 044212 004737 015764 JSR 
3250 044216 103405 BCS 
3254 044220 010001 MOV 
3255 044222 ERRDF 
044222 455 
044224 002133 
044226 003646 
044230 012024 
3256 044232 3$: 
3257 044232 012704 044720 MOV 
3258 044236 004737 010652 JSR 
3259 044242 103404 BCS 
3263 044244 ERRHRD 
044244 104456 
044246 002132 
044250 005052 
044252 012024 
3264 044254 4$: 
3265 044254 004737 045524 JSR 
3266 044260 012704 044650 MOV 
3267 044264 5$: 
3268 044264 005037 002222 10$: CLR 
3269 044270 010465 000000 MOV 
3270 044274 737 016326 JSR 
3271 044300 103405 BCS 
3272 044302 010001 MOV 
3276 044304 ERRDF 
044304 104455 
044306 002133 
044310 045270 
044312 012036 
3277 044314 15$:  CKLOOP 
044314 104406 
3278 044316 ESCAPE 
044316 104410 
044320 000074 
3279 044322 005737 002222 TST 
3280 044326 001004 
3284 044330 
044330 104456 
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EST 3 


#PRI00 


PC, SOF INIT 
3$ 


RO,R1 
ERRNO, SF IERR, SF IMSG 


#T11PK2,R4 
+ aati 


ERRNO ,WRITMSG, SF IMSG 


PC, T1IREST 
#71 1PACKET,R4 


INTRECV 
R4, TSDB(RS) 
PC. CHKTSSR 
15$ 


RO,R1 
ERRNO, T11SR2,PKTSSR 


SEG 


INTRECV 


BNE 
ERRHAD ERRNO,T1ININT,PKTSSR 


SEQ 0206 


[CHECK THAT THE GET STATUS COMMAND IS ACCEPTED 


LLL re ew OU 
TRAP C$BSUB 


sLOWER PRIORITY TO ALLOW = yaaa 
ed PRIOO,RO 


TRAP c SPRI 
3>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
Pp 


CS$BSEG 
D0 SOFT INIT OF CONTROLLER 
36R IF SOFT IN 4 = OK 

sSAVE CONTENTS OF TSSR 

DEVICE FATAL ERROR eno par 


CSERDF 

GORD 1113 
«WORD SFIERR 
«WORD SFIMSG 

sWRITE CHARACTERISTICS PACKET 

2 ISSUE WRITE CHARACTERISTICS 

7BR, IF COMMAND ISSUED OK 

WRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
eWORD 1114 
«WORD WRTMSG 
«WORD SFIMSG 


UP PACKET FOR COMMAND 
THE ADDRESS OF COMMAND PACKET 


CSERDF 
GORD 1115 
WORD T11SR2 
-JORD PKTSSR 
LOOP ON ERROR, IF FLAG SET 
CSCLP1 


RAP 
sBY-PASS SUBTEST IF rae, a 
RAP CSESCAPE 

10000 


;DID AN INTERRUPT OCCUR ? 
SBRANCH IF YES 


TRAP CSERHRD 
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11: NON-TAPE 


36 

3285 044340 
86 044344 

3287 044350 
88 54 


044412 
3303 044414 
044414 
044414 
04 
3305 
3306 044416 
044416 
044416 


104456 
002135 
045103 
012036 


004737 
103405 


015500 


104405 


104403 


MOTION COMMAND 


000100 
000700 


011104 


228: 


25$: 


30$: 
35$: 


59$: 


ERRHRD 


JSR 
BCS 
ERRHRD 


ENDSEG 


ENDSUB 
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its et ge R1 
#SSR,R2 
#OFL;R1 
25$ 


#OFL,R2 
Ro Ri 


0 
ERRNO, T113REJ,PKTSSR 


PC, CKRAM 
9$ 


ERRNO, PKTRAM,RAMERR 


-WORD 1116 
«WORD TIININT 
WO PKTSSR 

:GET THE CONTENTS OF TSSR 

S EXPECTED CONTENTS OF »/SSR 

31S OFF-LINE BIT SET 

* BRANCH IF NOT OFFeLI NE 

sSET OFF-LINE IN EXPECTED DATA 

:DOES ip haien MATCH RECEIVED ? 

;COMMAND NOT ACCFPTED 

AP CSERHRD 

-WORD 1117 
«WORD T113REJ 
-WORD PKTSSR 

;CHECK RAM TO MEMORY 

SRAM OK GO ON 

; THEY DON'T MATCH 
TRAP CSERHRD 
-WORD 1118 
-WORD PKTRAM 
-WORD RAMERR 

§ RRR END SEGMENT RRR KEKE KKK 
TRAP CSESEG 


ZV\VNAAAAAAAAAN END SUBTEST \NVAAAAAAAANA 
L10105: 


“ TRAP = CSESUB 


SEQ 0207 


Nee Sid I ns ERE EAST HBS 
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TEST 11: NON-TAPE MOTION COMMAND SEQ 0208 
3308 3+ 
3309 3 
3310 ;TEST 11, SUBTEST 4 
3312 :SUBTEST TO VERIFY THAT A GET STATUS COMMAND IS 
3313 ;REJECTED IF A NON-ZERO COMMAND MODE FIELD IS USED 
ni - 
3317 044420 BGNSUB S/IIIIIITITTT «BEGIN SUBTEST /////I/II107 
044420 111.4: 
“ae 044420 104402 TRAP  C$BSUB 
3319 044422 SETPRI #PRIOO ZLOWER PRIORITY TO ALLOW INTERRUPTS 
044422 012700 000000 mov #PRI00,RO 
4426 104441 TRAP _ C$SPRI 
3320 044430 BGNSEG j>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 
044430 104404 TRAP  C$BSEG 
3321 044432 004737 015764 JSR PC,SOFINIT :D0 SOFT INIT OF CONTROLLER 
3322 044436 103405 BCS 3$ :BR IF SOFT INIT = Ok 
3326 044440 010001 MOV RO,R1 SSAVE CONTENTS OF TSSR 
3327 044442 ERRDF ERRNO, SFIERR,SFIMSG [DEVICE FATAL ERROR DURING INIT 
044442 104455 CSERDF 
044444 002137 TeoRD 1119 
044446 003646 [WORD SFIERR 
044450 012024 <WORD SFIMSG 
3328 044452 3$: 
3329 044452 012704 044720 MOV #T11PK2,R4 WRITE CHARACTERISTICS PACKET 
3330 044456 004737 010652 JSR PC,WRTCHR TISSUE WRITE CHARACTERISTICS 
3331 044462 103404 BCS 4$ 7BR, IF COMMAND ISSUED OK 
3335 044464 ERRHRD ERRNO,WRTMSG, SF IMSG [WRITE CHARACTERISTISC FAILED 
044464 104456 TRAP § CSERHRD 
044466 002140 .WORD 1120 
044470 005052 <WORD WRTMSG 
044472 012024 .WORD  SFIMSG 
3336 044474 4$: 
3337 044474 004737 045524 JSR PC, TIIREST :SET UP PACKET FOR COMMAND 
3338 044500 012704 044650 > MOV #T11PACKET,R4 3GET THE ADDRESS OF COMMAND PACKET 
3340 044504 005037 002222 10$: CLR INT ZCLEAR INTERRUPT RECEIVED FLAG 
3341 044510 052714 007000 BIS #007000, (R4) 7SET TO NON-ZERO MODE 
334¢ 044514 010465 000000 MOV R4, TSDB(RS) iSET THE PACKET ADDRESS 
3343 044520 004737 016326 JSR PC; CHKTSSR WAIT FOR SSR TO SET 
3344 044524 103405 BCS 15$ TBR IF CARRY SET (GOOD RETURN) 
3345 044526 010001 MOV RO,R1 [SAVE CONTENTS SSR 
3349 044530 ERRDF ERRNO,T11SR2,PKTSSR [DEVICE FATAL SSR FAILED TO SET 
530 104455 TRAP CSERDF 
044532 002141 «WORD 1121 
534 2 <WORD  T11SR2 
044536 012036 “WORD PKTSSR 
3350 044540 15$:  CKLOOP ;LOOP ON ERROR, IF FLAG SET 
104406 TRAP _— CS$CLP1 
3351 044542 ESCAPE SUB ;BY-PASS SUBTEST IF FATAL ERROR 
0445 2 104410 TRAP  CSESCAPE 
044544 000076 sWORD L10106-. 
3352 044546 005737 002222 TST INTRECV 7DID AN INTERRUPT OCCUR ? 
3353 044552 001004 BNE 22$ [BRANCH IF YES 
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NON=TAPE MOTION COMMANDS SEQ 0209 
| 3357 044554 ERRHRD ERRNO,T1ININT,PKTSSR 
| 044554 10445 TRAP  CSERHRD 

044556 00214 «WORD 1122 
044560 045344 “WORD T1ININT 
0445 012036 ~ WORD PKTSSR 

3358 044564 016501 000002 22$: MOV TSSR(RS),R1 :GET THE CONTENTS OF TSSR 

3359 044570 012702 100206 MOV #SC!SSR!TSREJ,R2 SEXPECTED CONTENTS OF TSSR 

3360 044574 032701 000100 BIT #OFL,R1 31S OFF-LINE BIT SET ? 

3361 044600 00140 BEQ 25$ [BRANCH IF NOT OFF-LINE 

3362 044602 052702 000100 BIS #OFL,R2 3SET OFF-LINE IN EXPECTED DATA 

3363 044606 020201 25$: CMP R2,Ri ‘DOES EXPECTED MATCH RECEIVED ? 

3364 044610 001404 BEQ 30$ SOKAY IF MATCH 

3368 044612 ERRHRD ERRNO,TI14REJ,PKTSSR § :COMMAND NOT REJECTED 
044612 104456 TRAP  CSERHRD 
044614 002143 «WORD 1123 
044616 045133 <WORD 1114REJ 
044620 012036 <WORD PKTSSR 

3369 044622 30$: 

3371 044622 004737 011104 35$: JSR PC, CKRAM :CHECK RAM TO MEMORY 

3372 044626 103404 BCS 9 TRAM 

3376 044630 ERRHRD ERRNO,PKTRAM,RAMERR STHEY DON'T MATCH 
044630 104456 TRAP  CSERHRD 
044632 002144 «WORD 1124 
044634 004741 «WORD PKTRAM 
044636 015500 .WORD RAMERR 

3377 044640 59S: 

3378 044640 ENDSEG 3 ORK K KKK KK END SEGMENT <<dedeeeeK< 
044640 10000$: 
044640 104405 : TRAP  CSESEG 

3379 044642 ENDSUB T\AVVAAVAAAAAN END SUBTEST \AVAANANANAAA 
044642 L10106: 
044642 104403 TRAP  CSESUB 


3380 
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11: NON-TAPE MOTION COMMANDS 

3382 044644 EXIT TST ;ALL DONE THIS TEST 
044644 104432 TRAP CSEXIT 
044646 000762 -WORD 1£L10102-. 

3383 
3384 se 
3385 ;LOCAL STORAGE FOR THIS TEST 
3387 a 
3391 044650 T11PACKET: ;COMMAND PACKET FOR yale 
3392 044650 100204 «WORD 100204 [WRITE CHAR COMMAND, WITH IE, ACK 
3393 044652 044660 eWORD T11DATA S ADDRESS OF CHARACTERISTICS BLOCK 
3394 044654 000000 «WORD 0 
$392 044656 000010 -WORD 8. sSTARTING VALUE OF BLOCK SIZE 
3397 044660 T11DATA: ;CHARACTERISTICS DATA BLOCK 
3398 044660 044672 WORD T11BFR ZADDRESS OF MESSAGE BUFFER 
3399 044662 000000 -WORD 0 
3400 044664 000016 eWORD 14. ;LENGTH OF MESSAGE BUFFER 
eco} 044666 000000 000000 «WORD 0,0 
Sar 044672 TI1BFR: .BLKW 8. sMESSAGE BUFFER 
3405 
3407 044720 .=<.+10>8177770 
3409 044720 T11PK2: ;COMMAND PACKET FOR TEST 
3410 044720 100204 «WORD 100204 sWRITE CHAR COMMAND, WITH IE, ACK 
3411 044722 044730 «WORD TIIDTA sADDRESS OF CHARACTERISTICS BLOCK 
3412 044724 000000 -WORD 0 
siz 044726 000010 e 8. sSTARTING VALUE OF BLOCK SIZE 
3415 044730 TIIDTA: ; CHARACTERISTICS DATA BLOCK 
3416 044730 044742 ~ WORD T118F2 ADDRESS OF MESSAGE BUFFER 
3417 044732 000000 -WORD 0 
3418 044734 000016 eWORD 14. LENGTH OF MESSAGE BUFFER 
neh 044736 000000 000000 -WORD 0,0 
3455 044742 T11BF2: .BLKW 8. sMESSAGE BUFFER 
3423 
3424 
3425 3¢ 
3426 ;LOCAL TEXT MESSAGES FOR TEST 
igs i 
3429 044762 111 116 117 TIINBA: .ASCIZ ‘INITIALIZE Command Not Accepted’ 
3430 045022 111 116 111 ~TIIT2REJ: eASCIZ oeet gekiee Not Rejected With Non-Zero Mode Field’ 
3431 045103 107 105 124 T113REJ: ASCIZ T STATUS Not Accepted’ 
a35 045133 107 105 124 TIIGREJ: *ASCI2 GET STATUS Not Rejected With Non=Zero Mode Fteld’ 
3433 045214 103 157 156 T11SSR: Asche ‘Contents of TSSR Incorrect After INITIALIZE’ 
3434 tH 103 157 156 111SR2: C12 "Contents of TSSR Incorrect After GET STATUS‘ 
3435 045344 105 170 160 TIININT: ASCIZ ‘Expected Interrupt Not Received On INITIALIZE’ 
$039 045422 111 156 143 T11TSBA: *ASCI2 ‘Incorrect TSBA Address After INITIALIZE‘ 

37 045472 116 157 156 TST1I1ID: eASCIZ ‘“Non=-Tape Motion Commands’ 
$36 EVEN 


Ww 
0 


SEQ 0210 





im 
r~4 


VMnMmMmuns 
WDONAULWN—O0OnN 


MViVIMnV! 
RAAaAk eee 


3 
RERRELRLLLLLEL 


IIIA AAA AAAS S33 39 ¥ 


ow 


ANOKLNVS 


FEES EEE 
RROD 


¥ 
Bw RAVLSIa 
NSSS 
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MOTION COMMAND 


1 044650 
1 100213 


005037 044672 
000207 


701 044650 


100217 


005037 044672 
000207 . 
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t 


aTIIPACKET R1 
#100217, (Rid 


(R1)+ 
(R1)+ 
(R1)+ 
(R1)+ 
(R1)+ 
(R1)¢ 


(R1) 
T11BFR 





ZROUT INE TO ane COMMAND PACKET TO START-UP (DEFAULT) VALUES 


sSAVE THE REGISTERS 


ZEXTENDED ADDR 
;SIZE_ OF DATA BLOCK IN BYTES 

ADDRESS OF MESSAGE BUFFER 

sLENGTH OF MESSAGE BUFFER 


CLEAR 1ST LOC IN MESSAGE BUFFER 
zRETURN 


ZROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
S COMMAND 


ssaue THE REGISTERS 


T OF THE PACK 


CKET 
GET STATUS WITH ACK, IE 
ADDRESS OF CHAR DATA BLOCK 
3 EXTENDED ADDRESS 
IZE OF DATA BLOCK IN orres 
ADDRESS OF MESSAGE BUFFE 


sLENGTH OF MESSAGE BUFFER 


sCLEAR 1ST LOC IN MESSAGE BUFFER 
;RETURN 
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TEST 11: NON-TAPE MOTION COMMAND SEQ 0212 


! .TITLE TSV6 = PARAMETER CODING 
12 
18 
19 045632 BGNMOD TSV6 
045632 TSV6:: 
st 
2 .SBTTL HARDWARE PARAMETER CODING SECTION 
24 os 
25 : THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
26 : THAT ARE USED BY THE SUPERVISOR TO BUIL S. THE 
27 : MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
28 3 INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
29 : MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
30 ; WITH THE OPERATOR. 
32 045632 BGNHRD 
045632 000010 .WORD L10107=L$HARD/2 
33 0456 LSHARD:: 
34 0456346 GPRMA HPM1,0,0,160010,177776, YES :GET TSBA/TSDB REGISTER ADDRESS. 
045634 00003 «WORD TSCODE 
5636 045654 ;WORD HPM1 
045640 160010 WORD TSLOLIM 
5642 177776 “WORD "ened 
35 045644 GPRMA 2. 0.0,776. YES :GET VECTOR ADDRESS. 
045644 001031 «WORD TSC 
045646 045710 WORD iA 
045650 000000 ;WORD TS$LOLIM 
045652 000776 ;WORD TSHILIM : 
: HPM3,4,0,340,0.7,YES 7GET INTERRUP; PRIORITY. 
37 045654 ENDHRD 
EVEN 
045654 10107: 
38 045654 104 105 126 “ASCIZ {DEVICE ADDRESS (TSBA/TSDB) * 
39 045710 111 116 124 Hen: “ASCIZ “INTERRUPT VECT 
40 045734 111 116 124 H -ASCI2 * INTERRUPT PRIORITY ' 


HE Cote ened eae ee ein oes 8 ee 
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SOFTWARE PARAMETER CODING SECTION SEQ 0213 
46 ~SBTTL SOFTWARE PARAMETER CODING SECTION 
46 3+ 
47 : THe SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
48 : THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
49 ; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
50 + INTERPRETED "oY THE SUPERVISOR AS DATA STRUCTURES. THE 
51 : MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
52 ; WITH THE OPERATOR 
54 045764 . BGNSFT 
045764 000003 -WORD L10110-L$SOFT/2 
045766 LSSOFT:: 
55 ; GPRML $PM1,0,-1,YES 3 GET TRANSPORT TEST FLAG. 
56 045766 GPRML  SPM4.2.-1.YES : GET ITERATION CONTROL. 
045766 001130 -WORD TSCODE 
045770 046024 WORD SPM 
045772 177777 «WORD 
: GPRMD SPm6. 4,D,7777,0,7777, YES 3 GET LOCAL ERROR LIMIT 
58 : GPRMD SPM7.6.D.7777.0.7777.YES 3 GET GLOBAL ERROR LIMIT 
59 045774 ENDSFT 
045774 L10110: © 
60 
62 045774 105 116 101 SPM1: .ASCIZ ‘ENABLE TRANSPORT TESTS ° 
63 046024 111 116 110 SPM4:  .ASCIZ ‘INHIBIT ITERATIONS ' 
64 046054 120 105 122 SPM6:  .ASCIZ ‘PER TEST ERROR LIMIT ° 
65 046104 120 105 122 SPM7: .ASCIZ ‘PER UNIT ERROR LIMIT ° 
66 .SBTTL PATCH AREA 
68 : 
69 3 FINALLY A GENEROUS PATCH AREA. 
71 ; AND AN ADJUSTMENT TO ACCOUNT FOR THE “LASTAD BIT?"" HACK 
% ; DESCRIBED IN *‘SUPPRG.MEM'’ (FOR REV 
7% ’ 
75 046134 PATCH:: 


sSET LAST USED ADDRESS. 
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SYMBOL TABLE SEQ 0214 
ADDSSR 012116 G CSAU_ = 000052 DEVDRO 0. $308 INTFLA 016135 
ADR = pooeey G CSAUTO= 000061 DEVNRD 02330 INTMAS 016134 
TSS 1 CSBRK = 000022 DEVNXR 023223 INTR bAgsos G 
ASSEMB= 000010 CSBSEG= 000004 DEVONL 8 153 INTREC 002222 G 
A1716 = 000003 C$BS 0000 DEVSUM 116 INTVEC 016136 
BADDAT 003152 G CSCEFG= 00004 DFPTBL 002154 G INTX 004274 
BADSSR 015670G_ CSCLCK= 00006 DIAGMC= 000000 INVERT 021176 G 
BDVPCR= 177520 G CSCLEA= 00001 DICEA_= 000001 IOKCKI= 000200 
BENBSW 002226 G CSCLOS= 00003 DSBINT 016174 IOKSTP= 000001 
IE = 040000 CSCLP1= 000006 DUADI2 004637 IPRI 002210 G 
BITO = 000001 G CSCVEC= 000036 DUFLG 003106 G ISR = 000100 G 
BITOO = 000001 G CSDCLN= 000044 DUMMY 3056 IVEC 002206 G 
BITO1 = 000002 G ODU= 000051 EF .CON= 000076 G IXE = 004000 G 
oie = G CSDRPT= 000024 EF .NEW= 000035 G ISAU_ = 000041 
BITOS = 000010 G C$dU_ = 000053 EF = 000034 G ISAUTO= 000041 
BITO4 = 000020 G CSEDIT= 000003 EF .RES= 000037 G ISCLN = 000041 
BITOS = 000040 G CSERDF= 000055 EF.STA= 000040 G ISDU_ = 000041 
BITO6 = 000100 G = 000056 U 016767 ISHRD = 000041 
BITO7 = 000200 G CSERRO= 000060 = 000000 ISINIT= 000041 
BITO8 = 000400 G CSERSF= 000054 ENAINT 016142 ISMOD = 000041 
BITO9 = 001000 G CSERSO= 000057 ENVIRN 020620 ISMSG = 000041 
BIT! = 000002 G CSESCA= 000010 EPRTSW 002176 G ISPROT= 000040 
BIT10 = 002000 G CSESEG= 000005 EPRT] 006354 ISPTAB= 000041 
BIT11 = 004000 G CSESUB= 000003 EPRT2 006 ISPWR = 000041 
BIT12 = 010000 G SETST= 000001 ERCM ALES ISRPT = 000041 
BIT13 = 020000 G CSEXIT= 000032 ERRHI 0022 ISSEG = 000041 
BIT14 = 040000 G C$GETB= poonss ERRK 016746 ISSETU= 000041 
BIT1S5 = 100000 G C$GETW= 0000 ERRLO 0022 ISSFT = 000041 
oite = 000004 G c$ = 000043 ERRNO = 002144 ISSRV = 000041 
BITS = 000010 G C = 000042 ERRVEC= 000 ISSUB = 000041 
BIT4 = 000020 G C 000030 ERTABE 00337 ISTST = 000041 
BITS = 000040 G = 000040 ERTABL 0031 JSJMP = 000167 
BIT6 = 000100 G CSINIT= 000011 ESUM 016750 KIPARQ= 17234 
BIT? = 000200 G CSINLP= 000020 EvL = 00 KIPARI= 17234 
BITS = 000400 G CSMANI= 000050 EXBCNT= 00001 KIPAR2= 172344 
BIT9 = 001000 G CSMEM = 31 EXPBRE bh 3855 G KIPARS= 172346 
= 000400 G CSMSG = 3 EXPD e659 KIPAR4= 172350 
BRINIT 004453 CSOPEN= EXPGOT 00452 KIPARS= 17 36 
BSELO = 000000 CSPNTB= 000014 EXPGT2 563 KIPAR6= 17235 
BSEL1 = 000001 CSPNTF= 17 EXPMSG $ 0G KIPAR7= 172356 
C 016034 CSPNTS= 16 EXPREC 015464 G KIPDRO= 17 $05 
Cc 020470 G CSPNTX= 000015 EXTA 5766 KIPORI= 172302 
CHKTSS 016326 C$Q10 = 000377 EXTEND Hh 9} KIPOR2= 17 
CKDROP HALL; C$RDBU= ? EXTFEA $¢ 4G KIPORS= 17. 
CKEMAX 01707, ESEND = Hs! KIPOR4= 17231 
CKMSG. 011350 G ESLOAD= 5 KIPORS= 17231 
CKMSG2 011470 G FATERR= ress KIPDR6= 172314 
CKRAM 011104 G FATFLG $6 G KIPOR7= 17 8 
CKRAM2 011214 G ERCM 1171 KTENAB 130 G 
CMDPKT 021250 G FIFEXP 012160 G KTFLG 126 G 
CMPMEM 017650 FIFIMS 01 § KTINIT 021044 
CONFIG 017240 FIF2MS 01250 KTOFF 17264 
COUNT 00 G FILLME 01741 KTON 17 3 
CSRADD 002204 G FNOINT 4 LERRMA G 
CTAB 00 160 G FORCER 746 LISTAL= 
CTABE 003172 G FREE 130 G LOE = G 
CTABM §= 003160 G FREEHI 124 LOOPCN G 
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SEQ 0216 
S 14 025046 6 
TID 03074 T1.1 02345 $060, 
REGSAV 020130 © S}:1Fm= 001000 T3171 Si 1.2 2333 P reat 0 “6 
° 6. 
RETERR 005366 $1:1HE= 000400 TST9ID 040271 TIOBFR 04253 1% 5610 
REWIND 0 G $1.11D= 004 TSV 063000 G TIOBUF 042574 5° 02 G 
RMCHBE= 000167 $1.1]R= saa TSV 174 G TIODAT 52 TSapoR 2744 
RMCHEN= 000200 S1.12R= 04000 TSv4 1536 G THODTA 04836 ays 5 toe 
RMMSGE= 000234 S2.ATI= 0000 TSV6 a3 G T10L00 10 T.1 30. oie4 
RMPKTB= 000201 $2.8T1= 000 FR 17756 G T10MBF 14 ¢ 772 
RMPKTE= 000210 $g-biRe Go9200 HHICsR= 177560 TONGA “it te" 027506 C 
= 01 35° INR= 20 TTIVEC= 000060 G TIONIN 5393 T6INT 03053 
RWPACK 011100 $-iMte 9 TSARGC= 000003 rie 8 cf TéL 027524 
ce} 5 eure Booecs TSCODE= 001130 TiGeee esau T6NBA 0 
SCHERR OSo74 TBLEND= 003056 G 1Sexche 6060 HORST Oe 346 TEPACK 080620 
: 5 Teocos 90867 TSFLAG= 000040 THORT2 043420 rereek Oaeeee 
he a en ad ce ae 
SELDAT= TEMP2 _ 90 AST= 000001 110. 077% : 0050 
a ao TESTNO= 000018 TSLOL T= 900000 He:$ 2356 a ost76 ’ 
SEIU 022078 TEXASC 006651 TSLSYM= 01000 Hi 968476 A oh Rf 
5 467 
SFFMSG 012072 6 TIMEX 015842 G TSNEST= 17777 TI1BFR T7INT 034101 
SFHERR 003701 TIMEXP Vey SO = 000000 TIIBF2 04474 T7LOOP 03100 
SFIMSG 012024 G TINERR 12011 TSNS2 © 090008 TIIDTA 046 ren Sarees 
SFPTBL 002164 THPBFR 002630 T$NS3 = 00000 riitog M673! T?PACK 033120 
MSG 011756 TRANST 99977 TIININ 045 
SKIPT. 0088 T$BA = 000000 testet= 179997 THIPAC 94468 it ae is6 
SOFINI 015764 G rseNt® Borst, TSSEKO= 010000 THIRES. pehs3e 0341 
SPACE 010462 G sows BscSpe TSSUBN= runes Sees 17.1 
nn mn oa 
046054 TSDBH = 16 TIISSR 045214 T 
SPH? 046104 TSFCOD_ 007282 reTeMre ponte TH1TSB 04862 q 8 
SRO. = 177572 TSsbEF 00660 TSTSTM= 17777 111.1 ve 
SRI = 177576 TSSDEF OoeRS T$TSTS= Hit. ? 
Snes 1pesie TSsRel 005476 6 TSSAU = Hise. gee 17 
Sse = 000200 TSSRFO 0641) THTSRE 0450 
STATCO 012402 SSRH = 000005 TIISRE 0451 
SvCGBL= 900009 TSTBLK 9002750 G 12 038656 
Sg ah 44 TSTCNT 334 G TStoop 09367 a 
000000 rere Pieris igeee, Rare? T8aF 
SVCTST= 000001 TSTFLA 02312 T2T$BA 024 
SSLSYM= 910000 TSIPTR O0S3I & 133A" OO8140 G T8LOOP 
$0.1D8= 000010 cans I ; TBNVC 
:1FB= 000002 ser eee T 142 G 
S0.1FP= 000001 ISTHID 43636 I Size ¢ 
30: 10N= 000040 STINE | 065472 T3LOOP 02037 
$0.1RD= 000100 rst +4 $343 T3SSR : 4 rc. 
oho Re BO0SCG S140 a3e¢ TSrSsR 020703 
$1: 1¢e= 002000 TSTSID 027356 
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| TOINT 040117 UAM 00 G WRTCHR 010652 G 
T9LOOP 035300 UNITN - Go9500 WRTERR 03109 
T 037376 UNREC = 000 URTASG 005 
TONINT 040026 USI 1 W 1260 
TOPACK 03/220 WAITF BiGene G XFERAS 15 
T9REST 940816 We. IFA= XNIN 016566 
TO9SSR 03773 WC. IFE= 00000 XORBFO 670 
T9TSBA 940206 we21G0= 000001 XORFOR 010006 
19.1 035 WC LIRE= 000010 XSTO = 000006 G 
19:2 035546 we TRW= 000006 X8T1 = 000010 G 
19:3 035760 we210T= 000106 X8T2 = 000012 ¢ 
19:4 036164 We211T= 000040 XST$ = 000014 & 
19:5 036382 We2T5R= 000020 XST% = 000016 G 
19:6 056556 WF -1eD= 000010 Ts 
19:7 03701 WF IER= XSOEOT= 000001 
TO2DAT 037262 WF IHI= 000200 XSOIE = 000040 
T92DON= 037276 WF IRE= 000040 XSOILA= 000400 
TOREJ 037851 wr IuF= 000020 XS01LC= 001000 
TOSREJ Oeecze WF. IWR= 0001 XSOLET= 0000 
T9GRE) 03754 WF 213R= 00000 KSONOT= 000209 
TOSREJ 037641 WF 14R= 000001 XSONEF= 002 
. ABS. 0464606 


001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY US 28224 ore" hones) eS? 


D: 
DYNAMIC MEMORY: SO s46 WORDS ( 
ELAPSED TIME: 00:34:1 


2:34:19 
CVTSAAO, CVTSAAO/=SP=SVC/ML , TSV1A, TSV22A, TSV3A, TSV4, TSV5A, TSV6 





XSOONL= 000100 
XSOPED= 000010 
XSORLL= 010000 
XSORLS= 04000 
XSOTMK= 1000 
xSOVCK= 
XSOWLE= 000 
XSOWLK= ‘ste 
XXC A8 6 
XSALWA= 0000 
XSFALS= 000040 
XSTRUE= O000s0 
= 
X1.COR= a4 
X1.DLT= 1 
X1.MBZ= 01737 
= 00 
X1.SPA= 0400 
-UNC= 100 
-BUF= 0001 





RF 
X4.HSP= + 
nr ae 17400 


SEQ 0217 


